Changeset 3475

Timestamp:

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

Author:

autrijus

svk:copy_cache_prev:

5016

Message:

* "left" == "pre" in reduce

Files:

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

src/Pugs/Prim/List.hs

@@ -59 +59 @@
             evl (App (Val sub) [Val x, Val y] [])
     case subAssoc code of
-        "left"  -> foldM doFold (head args) (tail args)
         "right" -> do
             let args' = reverse args
@@ -70 +69 @@
                     _           -> return val
             foldM doFold' (head args) (tail args)
-        _ -> fail $ "Cannot reduce over associativity:" ++ show (subAssoc code)
+        "non"   -> fail $ "Cannot reduce over non-associativity"
+        _       -> foldM doFold (head args) (tail args) -- "left", "pre"
 
 op2Grep :: Val -> Val -> Eval Val