Changeset 15489 for src/Pugs/AST.hs

Timestamp:

03/06/07 11:44:24 (21 months ago)

Author:

audreyt

Message:

* The "HOW" call is now dispatched by ."".
* Also rename ITEM and LIST back to ITEM and LIST

as they are not super-magical; indeed the user is free
to define them.

Files:

• src/Pugs/AST.hs (modified) (2 diffs)

src/Pugs/AST.hs

@@ -73 +73 @@
 
 dispatchOldVal :: Val.Val -> Call -> Eval Val.Val
-dispatchOldVal inv call = do
-    inv' <- castVal inv
-    rv   <- evalExp $ App (_Var ('&':cast (mi_name call)))
-                          (Just $ Val inv')
-                          [Syn "|" [Val . VV . mkVal $ mi_arguments call]]
-    fromVal rv
+dispatchOldVal inv call
+    | meth == nullID = do
+        typ <- evalValType =<< castVal inv
+        (fromVal =<<) . evalExp $ _Var (':':'*':showType typ)
+    | otherwise      = do 
+        inv' <- castVal inv
+        (fromVal =<<) . evalExp $ App
+            (_Var ('&':cast meth))
+            (Just $ Val inv')
+            [Syn "|" [Val . VV . mkVal $ mi_arguments call]]
+    where
+    meth = mi_name call
 
 {-|
@@ -428 +434 @@
 
 __LIST__ :: Call
-__LIST__ = cast "__LIST__"
+__LIST__ = cast "LIST"
 
 __ITEM__ :: Call
-__ITEM__ = cast "__ITEM__"
+__ITEM__ = cast "ITEM"