diff options
author | dos-reis <gdr@axiomatics.org> | 2009-04-23 03:09:23 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-04-23 03:09:23 +0000 |
commit | 1db4bd76938d5901b39cb516327a054c1aa0fdec (patch) | |
tree | 9b414df91b23f58365bd46d1839c8b67c93ef9ba /src/interp/compiler.boot | |
parent | 4167349c0697014915c1997647c58bbc99ddf832 (diff) | |
download | open-axiom-1db4bd76938d5901b39cb516327a054c1aa0fdec.tar.gz |
* interp/sys-constants.boot ($SystemInlinableConstructorNames):
Include Identifier.
* interp/compiler.boot (compElt): Fix up 0 and 1 shenannigan.
* algebra/boolean.spad.pamphlet (Reference): Use Identifier.
* algebra/Makefile.pamphlet (axiom_algebra_bootstrap): Remove REF.
(axiom_algebra_bootstrap_last_layer): Likewise.
* algebra/strap/REF.lsp: Remove.
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 fd4519fc..1217d63c 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1109,7 +1109,7 @@ compElt: (%Form,%Mode,%Env) -> %Maybe %Triple compElt(form,m,E) == form isnt ["elt",aDomain,anOp] => compForm(form,m,E) aDomain="Lisp" or (aDomain is ["Foreign",lang] and lang="Builtin") => - [anOp,m,E] + [anOp',m,E] where anOp'() == (anOp = $Zero => 0; anOp = $One => 1; anOp) lang ^= nil => opMode := getExternalSymbolMode(anOp,lang,E) op := get(anOp,"%Link",E) or anOp |