aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-05-06 15:37:58 +0000
committerdos-reis <gdr@axiomatics.org>2008-05-06 15:37:58 +0000
commit64dee33447f6db28cfe4d6abe92e51bf4e70a2c6 (patch)
tree3a813b7dd4d8ab537a9bf205a58816c4fac60c4d /src/interp/g-opt.boot
parentda4adc938b1a233283d8d56dc5192adf48175ba7 (diff)
downloadopen-axiom-64dee33447f6db28cfe4d6abe92e51bf4e70a2c6.tar.gz
* interp/define.boot: Explicitly initialize fluid variables.
* interp/functor.boot: Likewise. * interp/g-opt.boot: Likewise. * interp/nruncomp.boot: Likewise. * interp/nrunfast.boot: Likewise. * interp/package.boot: Likewise. * interp/parse.boot: Likewise. * interp/pspad1.boot: Likewise. * interp/record.boot: Likewise. * interp/template.boot: Likewise. * interp/trace.boot: Likewise. * interp/wi1.boot: Likewise. * interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index e497c187..4e2b4484 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -254,7 +254,7 @@ AssocBarGensym(key,l) ==
EqualBarGensym(key,CAR x) => return x
EqualBarGensym(x,y) ==
- $GensymAssoc: fluid
+ $GensymAssoc: fluid := nil
fn(x,y) where
fn(x,y) ==
x=y => true