Changeset 3476

Timestamp:

05/20/05 00:22:11 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5016

Message:

* correctly implement chained ops like [>].

Files:

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

src/Pugs/Prim/List.hs

@@ -67 +67 @@
                 case val of
                     VBool False -> esc val
-                    _           -> return val
+                    _           -> return y
             foldM doFold' (head args) (tail args)
+            return $ VBool True
         "non"   -> fail $ "Cannot reduce over non-associativity"
         _       -> foldM doFold (head args) (tail args) -- "left", "pre"