Changeset 5266 for src/Pugs/Compile/Pugs.hs

Timestamp:

07/07/05 07:44:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

7266

Message:

* Finish the transition from @?CHECK and @?INIT to

@*CHECK and @*INIT.

Files:

• src/Pugs/Compile/Pugs.hs (modified) (1 diff)

src/Pugs/Compile/Pugs.hs

@@ -75 +75 @@
 
 instance Compile (String, [(TVar Bool, TVar VRef)]) where
-    compile ((_:'?':_), _) = return empty -- XXX - @?INIT etc; punt for now
+    compile ((_:'?':_), _) = return empty -- XXX - @?S etc; punt for now
+    compile ((_:'*':_), _) = return empty -- XXX - @*INIT etc; punt for now
     compile ((_:'=':_), _) = return empty -- XXX - @=POS etc; punt for now
     compile (n, tvars) = do