Changeset 5847 for src/Pugs/Bind.hs

Timestamp:

07/27/05 17:52:20 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7758

Message:

* This should work:

sub foo (*&block) { &block() }; foo():{ "foo" }

i.e. slurpy non-@ sigils should be treated as slurpy scalars.

Files:

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

src/Pugs/Bind.hs

@@ -134 +134 @@
 doBindArray :: Exp -> (Bindings, VInt) -> (Param, Char) -> MaybeError (Bindings, VInt)
 doBindArray _ (xs, -1) (p, '@') = return (((p, emptyArrayExp):xs), -1)
-doBindArray _ (_, -1)  (p, '$') = fail $ "Slurpy array followed by slurpy scalar: " ++ show p
+doBindArray _ (_, -1)  (p, _) = fail $ "Slurpy array followed by slurpy scalar: " ++ show p
 doBindArray v (xs, n)  (p, '@') = return (((p, doSlice v n):xs), -1)
-doBindArray v (xs, n)  (p, '$') = case v of
+doBindArray v (xs, n)  (p, _) = case v of
     (Syn "," [])    -> fail $ "Insufficient arguments for slurpy scalar"
     _               -> return (((p, doIndex v n):xs), n+1)
-doBindArray _ (_, _)  (_, x) = internalError $ "doBindArray: unexpected char: " ++ (show x)
+-- doBindArray _ (_, _)  (_, x) = internalError $ "doBindArray: unexpected char: " ++ (show x)
 
 {-|