Changeset 14156 for src/Pugs/Eval.hs

Timestamp:

10/09/06 19:40:00 (2 years ago)

Author:

audreyt

Message:

* Move possiblyFixOperatorName from consumption site (lookupPad)

into production site (_Var and explicit &::()) on the assumption
that the former happens far more often than the former.

Files:

• src/Pugs/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -613 +613 @@
             Var name -> return name
             Syn [sigil,':',':','(',')'] [vexp]
-                | Val (VStr name) <- unwrap vexp -> return $ cast (sigil:name)
+                | Val (VStr name) <- unwrap vexp -> return $ possiblyFixOperatorName (cast (sigil:name))
             _        -> retError "Cannot bind this as lhs" var
         bindings <- forM (names `zip` vexps) $ \(var, vexp) -> enterLValue $ do