Changeset 15477 for src/Pugs/AST.hs

Timestamp:

03/05/07 19:25:41 (21 months ago)

Author:

audreyt

Message:

* Instead of inventing a complicated "special dispatch" for

super-magical pseudomethods like WHO/WHICH/ITEM/LIST, we
for now use the very convenient, very pythonesque treatment
of simply calling special method names like WHO, WHICH,
etc and hope that nobody mucks with them. ;)

Files:

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

src/Pugs/AST.hs

@@ -424 +424 @@
 
 instance ((:>:) Call) Cxt where
-    cast CxtSlurpy{} = _LIST
-    cast _           = _ITEM
-
-_LIST :: Call
-_LIST = cast "LIST"
-
-_ITEM :: Call
-_ITEM = cast "ITEM"
+    cast CxtSlurpy{} = __LIST__
+    cast _           = __ITEM__
+
+__LIST__ :: Call
+__LIST__ = cast "__LIST__"
+
+__ITEM__ :: Call
+__ITEM__ = cast "__ITEM__"