diff options
author | dos-reis <gdr@axiomatics.org> | 2008-05-12 19:12:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-05-12 19:12:19 +0000 |
commit | cca1e10eac77b9302c5862fa903872c792b36620 (patch) | |
tree | 88410d2826884d761a75f00b946bd2041fac31db /src/interp/compiler.boot | |
parent | d4221b8a648adc6bf3b44410dedd8b5e8abbeb18 (diff) | |
download | open-axiom-cca1e10eac77b9302c5862fa903872c792b36620.tar.gz |
* interp/c-util.boot (isLiteral): Declare.
(makeLiteral): Likewise.
* interp/compiler.boot (compSymbol): Use isLiteral.
* interp/wi1.boot (compSymbol): Likewise.
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 397e6b9a..94ee5e16 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -320,7 +320,7 @@ compSymbol(s,m,e) == isFluid s => [s,getmode(s,e) or return nil,e] s="true" => ['(QUOTE T),$Boolean,e] s="false" => [false,$Boolean,e] - s=m or get(s,"isLiteral",e) => [["QUOTE",s],s,e] + s=m or isLiteral(s,e) => [["QUOTE",s],s,e] v := get(s,"value",e) => --+ MEMQ(s,$functorLocalParameters) => |