Changeset 3362 for src/Pugs/Parser.hs

Timestamp:

05/17/05 23:22:58 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4945

Message:

* iblech reported that € doesn't work for some reason. fixed.

Files:

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

src/Pugs/Parser.hs

@@ -943 +943 @@
 
 doAppSym :: String -> [Exp] -> Exp
+doAppSym name@(_:'p':'r':'e':'f':'i':'x':':':_) args = App (Var name) args []
 doAppSym (sigil:name) args = App (Var (sigil:("prefix:"++name))) args []
 doAppSym _ _ = error "doAppSym: bad name"