Changeset 5335 for src/Pugs/Prim/Match.hs

Timestamp:

07/09/05 12:10:01 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* handle class literals as the invocant to .isa().

Files:

• src/Pugs/Prim/Match.hs (modified) (2 diffs)

src/Pugs/Prim/Match.hs

@@ -82 +82 @@
     op2Match x y'
 
+op2Match x@(VObject MkObject{ objType = MkType "Class" } ) y = do
+    fetch   <- doHash x hash_fetchVal
+    name    <- fromVal =<< fetch "name"
+    op2Match (VType (MkType name)) y
+
 op2Match x y@(VObject MkObject{ objType = MkType "Class" } ) = do
     fetch   <- doHash y hash_fetchVal
@@ -157 +162 @@
 op2Match x y@(VType _) = do
     typ <- fromVal x
-    op2Match (VType typ) y
+    case x of
+        VRef x | typ == MkType "Class" -> do
+            x' <- readRef x
+            op2Match x' y
+        _ -> op2Match (VType typ) y
 
 op2Match (VRef x) y = do