diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-05 16:42:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-05 16:42:50 +0000 |
| commit | 207c5a13c6987ad88975c35006d16c74d0e58e1a (patch) | |
| tree | 9c15509f1153868e6df6210cca98dffb84ea7000 /src/boot/translator.boot | |
| parent | 2a4baaa2a295381d6c37ec2fc7c3f7ec8fd089cf (diff) | |
| download | open-axiom-207c5a13c6987ad88975c35006d16c74d0e58e1a.tar.gz | |
cleanup
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index c939e52b..e9d720a2 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -56,14 +56,14 @@ genModuleFinalization(stream) == init := ["DEFUN", makeSymbol strconc($currentModuleName,'"InitCLispFFI"), nil, ["MAPC",["FUNCTION", "FMAKUNBOUND"], - ["QUOTE",[second d for d in $foreignsDefsForCLisp]]], - :[["EVAL",["QUOTE",d]] for d in $foreignsDefsForCLisp]] + quote [second d for d in $foreignsDefsForCLisp]], + :[["EVAL",quote d] for d in $foreignsDefsForCLisp]] REALLYPRETTYPRINT(init,stream) nil genOptimizeOptions stream == REALLYPRETTYPRINT - (["PROCLAIM",["QUOTE",["OPTIMIZE",:$LispOptimizeOptions]]],stream) + (["PROCLAIM",quote ["OPTIMIZE",:$LispOptimizeOptions]],stream) AxiomCore::%sysInit() == SETQ(_*LOAD_-VERBOSE_*,false) @@ -418,7 +418,7 @@ inAllContexts x == exportNames ns == ns = nil => nil - [inAllContexts ["EXPORT",["QUOTE",ns]]] + [inAllContexts ["EXPORT",quote ns]] translateToplevel(b,export?) == atom b => [b] -- generally happens in interactive mode. |