diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
| commit | af7a143e3a13e932e243165814fa40424507dae0 (patch) | |
| tree | b0b22dedd5754449a9565049f3b4552f4ae2c71f /src/interp/g-util.boot | |
| parent | 43e465553496af8449014857fdd95386b6e8fd66 (diff) | |
| download | open-axiom-af7a143e3a13e932e243165814fa40424507dae0.tar.gz | |
* interp/buildom.boot (lookupInDomainVector): Establish a new
binding for $lookupDefaults.
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 4b912926..27f870ce 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -231,7 +231,7 @@ get0(x,prop,e) == get1(x,prop,e) == --this is the old get cons? x => get(x.op,prop,e) - prop="modemap" and $insideCapsuleFunctionIfTrue=true => + prop="modemap" and $insideCapsuleFunctionIfTrue => symbolLassoc("modemap",getProplist(x,$CapsuleModemapFrame)) or get2(x,prop) LASSOC(prop,getProplist(x,e)) or get2(x,prop) @@ -258,7 +258,7 @@ put(x,prop,val,e) == --e must never be $CapsuleModemapFrame cons? x => put(first x,prop,val,e) newProplist := augProplistOf(x,prop,val,e) - prop="modemap" and $insideCapsuleFunctionIfTrue=true => + prop="modemap" and $insideCapsuleFunctionIfTrue => SAY ["**** modemap PUT on CapsuleModemapFrame: ",val] $CapsuleModemapFrame:= addBinding(x,augProplistOf(x,"modemap",val,$CapsuleModemapFrame), |