Changeset 4072

Timestamp:

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

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

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

as reported by eric256

Location:

src/Pugs

Files:

• Eval.hs (modified) (1 diff)
• Prim/Match.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -446 +446 @@
         vbreak <- fromVal break
         result <- reduce $ case unwrap match of
-            App _ (Just (Var "$_")) _ -> exp
+            App _ (Just (Var "$_")) _ -> match
             _ -> App (Var "&infix:~~") Nothing [(Var "$_"), match]
         rb     <- fromVal result

src/Pugs/Prim/Match.hs

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