Changeset 5026

Timestamp:

06/27/05 20:17:15 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6880

Message:

* fix unhashify.t - testing .does/.isa/smartmatch on a reference

should not deref it.

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -151 +151 @@
         (return $ VMatch match)
 
+op2Match (VType typ) (VType t) = do
+    typs <- pkgParents (showType typ)
+    return . VBool $ showType t `elem` typs
+
+op2Match x y@(VType _) = do
+    typ <- fromVal x
+    op2Match (VType typ) y
+
+{-
 op2Match (VRef x) y = do
     x' <- readRef x
     op2Match x' y
-
-op2Match (VType typ) (VType t) = do
-    typs <- pkgParents (showType typ)
-    return . VBool $ showType t `elem` typs
-
-op2Match x y@(VType _) = do
-    typ <- fromVal x
-    op2Match (VType typ) y
+-}
 
 op2Match x y = do