Changeset 8153 for src/Pugs/Run

Timestamp:

12/10/05 13:24:15 (3 years ago)

Author:

gaal

Message:

* Refactor Cxt, Pos, and Prag nodes in Exp to a unified Ann

(for Annotation) type. This should ease work on lexical pragmas.

Files:

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

src/Pugs/Run/Perl5.hs

@@ -77 +77 @@
             _                   -> Val sub
     val <- runEvalIO env $
-        evalExp (Cxt (cxtEnum cxt) $ App subExp (fmap Val inv) (map Val args))
+        evalExp (Ann (Cxt (cxtEnum cxt)) $ App subExp (fmap Val inv) (map Val args))
     newSVval val