Changeset 14570 for src/Pugs/Parser

Timestamp:

11/01/06 16:18:57 (2 years ago)

Author:

audreyt

Message:

* Pugs.Parser: fglock++ noticed that Pugs was not composing hash variables:

my $x = { %y }; # was a Block, should be Hash

This fixed it and added a regression test into nested_hashrefs.t

Files:

• src/Pugs/Parser/Util.hs (modified) (1 diff)

src/Pugs/Parser/Util.hs

@@ -177 +177 @@
     
     isHashOrPair (Ann _ exp) = isHashOrPair exp
-    isHashOrPair (App (Var var) _ _) =
-        v_sigil var == SHash || (var == cast "&pair") || (var == cast "&infix:=>") 
+    isHashOrPair (App (Var var) _ _) = (var == cast "&pair") || (var == cast "&infix:=>") 
     isHashOrPair (Syn "%{}" _) = True
+    isHashOrPair (Var var) = v_sigil var == SHash
     isHashOrPair _ = False