Changeset 14317 for src/Pugs/Compile.hs

Timestamp:

10/17/06 08:24:53 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

21206

Message:

* Unify "if" and "unless" into the new (Syn "cond") node, which

allows for pointy clauses in conditionals:

if f -> $x {

...

}
elsif g -> $y {

...

}
else -> $z {

...

}

* Bump CompUnit? version; please rm blib6/lib/*.yml before remaking.

Files:

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

src/Pugs/Compile.hs

@@ -313 +313 @@
         isLogicalLazy _ = False
     compile exp@(Syn "if" _) = compConditional exp
+    compile exp@(Syn "cond" _) = compConditional exp
     compile (Syn "{}" (x:xs)) = compile $ App (_Var "&postcircumfix:{}") (Just x) xs
     compile (Syn "[]" (x:xs)) = do