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

Timestamp:

05/28/05 21:15:28 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* fix when .isa() infinite loop introduced yesterday,

as reported by eric256

Files:

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

src/Pugs/Prim/Match.hs

@@ -149 +149 @@
 
 op2Match x y@(VType _) = do
-    typ <- evalValType x
+    typ <- fromVal x
     op2Match (VType typ) y