Changeset 5008 for src/Pugs/Compile.hs

Timestamp:

06/26/05 19:19:20 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

6856

Message:

Syntax but ($obj but {...}).
* t/oo/syntax-but.t -- Fixed test.
* Prelude -- Added Pugs::Internals helper sub.
* Pugs.Eval -- Implemented syntax but in the interpreter core...
* Pugs.Compile -- ...and in the compiler part of Pugs.

Files:

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

src/Pugs/Compile.hs

@@ -342 +342 @@
         let op = "&infix:" ++ init syn
         compile $ Syn "=" [lhs, App (Var op) Nothing [lhs, exp]]
+    compile (Syn "but" [obj, block]) =
+        compile $ App (Var "&Pugs::Internals::but_block") Nothing [obj, block]
     compile exp = compError exp