Changeset 5662

Timestamp:

07/18/05 16:49:03 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

7648

Message:

Pugs.Compile -- Don't output the raw Exp in the show of PPos to ease the life
of PIL parser writers.

Files:

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

src/Pugs/Compile.hs

@@ -89 +89 @@
     show PNil = "PNil"
     show PNoop = "PNoop"
-    show (PPos x y z) = "(PPos " ++ show x ++ " " ++ show y ++ " " ++ show z ++ ")"
+    show (PPos x _ z) = "(PPos " ++ show x ++ " Noop " ++ show z ++ ")"
     show (PApp x y i z) = "(PApp " ++ show x ++ " " ++ show y ++ " " ++ show i ++ " " ++ show z ++ ")"
     show (PExp x) = "(PExp " ++ show x ++ ")"