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

Timestamp:

06/27/05 20:43:21 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6880

Message:

* $hashref.does(Hash) now returns true
* more test cleanups

Files:

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

src/Pugs/Prim/Match.hs

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