Changeset 14489 for src/Pugs/Compile.hs

Timestamp:

10/24/06 17:19:16 (2 years ago)

Author:

audreyt

Message:

* Restore support for:

if EXPR -> $x {

...

}
elsif EXPR -> $x {

...

}
else -> $x {

...

}

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