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

Timestamp:

08/03/05 00:39:19 (3 years ago)

Author:

putter

svk:copy_cache_prev:

8154

Message:

/a/ "a" now works, rather than only "a" /a/. iblech++ #haskell++

Files:

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

src/Pugs/Prim/Match.hs

@@ -71 +71 @@
     subsMatch = [ VMatch $ mkMatchOk 0 0 (decodeUTF8 sub) [] Map.empty | sub <- subs ]
 
+-- Used in op2Match
+not_VRule :: Val -> Bool
+not_VRule _y@(VRule _) = False
+not_VRule _            = True
+
 -- XXX - need to generalise this
 op2Match :: Val -> Val -> Eval Val
@@ -156 +161 @@
         (return $ VMatch match)
 
+op2Match x@(VRule _) y | not_VRule y = do
+    op2Match y x
+
 op2Match (VType typ) (VType t) = do
     typs <- pkgParents (showType typ)