Changeset 3957 for src/Pugs/Run

Timestamp:

05/27/05 04:44:09 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* allow omitting '&' from pugs_apply callconv.

Files:

• src/Pugs/Run/Perl5.hs (modified) (1 diff)

src/Pugs/Run/Perl5.hs

@@ -73 +73 @@
     -- print ("DEREF #4", args)
     let subExp = case sub of
-            VStr name   -> Var name
-            _           -> Val sub
+            VStr name@('&':_)   -> Var name
+            VStr name           -> Var ('&':name)
+            _                   -> Val sub
     val <- runEvalIO env $
         evalExp (Cxt (cxtEnum cxt) $ App subExp (fmap Val inv) (map Val args))