Changeset 15445 for src/Pugs/AST.hs

Timestamp:

03/04/07 15:13:18 (21 months ago)

Author:

audreyt

Message:

* Pugs.AST: Grand Unified Dispatch for oldVal, reusing Syn "|".

Files:

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

src/Pugs/AST.hs

@@ -73 +73 @@
 dispatchOldVal :: Val.Val -> Call -> Eval Val.Val
 dispatchOldVal inv call = do
-    fail $ "Dispatch failed - " ++ show (miName call)
+    inv' <- castVal inv
+    rv   <- evalExp $ App (_Var ('&':cast (miName call)))
+                          (Just $ Val inv')
+                          [Syn "|" [Val . VV . mkVal $ miArguments call]]
+    fromVal rv
 
 {-|