Changeset 5940 for src/Pugs/Compile.hs

Timestamp:

07/31/05 20:07:25 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

8084

Message:

* Pugs.Compile -- Don't emit [Noop] for the empty arrayref literal ([]).
* t/var/symbolic_deref.t -- Fixed one test.
* PIL2JS:

• Finally, returning 0- or 1-elem arrays works correctly, causing many tests to pass, currently resmoking...
• Removed the now unneeded [...] hacks.
• my ($a, undef, $b) = ... works now.

Files:

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

src/Pugs/Compile.hs

@@ -363 +363 @@
     compile (Syn "," exps) = do
         compile (App (Var "&infix:,") Nothing exps)
+    -- Minor hack, my $a = [] is parsed as my $a = [Noop], resulting in my $a =
+    -- [undef], which is wrong.
+    compile (Syn "\\[]" [Noop]) = do
+        compile (App (Var "&circumfix:[]") Nothing [])
     compile (Syn "\\[]" exps) = do
         compile (App (Var "&circumfix:[]") Nothing exps)