Changeset 5689 for src/Pugs/Bind.hs

Timestamp:

07/19/05 12:59:34 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7696

Message:

* Fix the subroutine-defaulting bug reported by philcrow:

the default expression for parameters should be evaluate
inside the subroutine's package and lexical pads.

Files:

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

src/Pugs/Bind.hs

@@ -217 +217 @@
 
     let unboundOptPrms = optPrms \\ (map fst boundOpt) -- unbound optParams are allPrms - boundPrms
-        optPrmsDefaults = [ Syn "default" [paramDefault prm] | prm <- unboundOptPrms ] -- get a list of default values
+        optPrmsDefaults = [
+            Syn "param-default" [paramDefault prm, Val (VCode sub)]
+            | prm <- unboundOptPrms
+            ] -- get a list of default values
         boundDefOpts = unboundOptPrms `zip` optPrmsDefaults -- turn into exprs, so that +$y = $x will work