diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-07 05:28:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-07 05:28:24 +0000 |
| commit | 0062eb960026efdf72e3ecb301aa46054e0d5ca2 (patch) | |
| tree | d38784175f3296a34a3bca15b480a60cc166f888 /src/interp/i-syscmd.boot | |
| parent | 58566223a7545abff4da2dabc323795e98711a94 (diff) | |
| download | open-axiom-0062eb960026efdf72e3ecb301aa46054e0d5ca2.tar.gz | |
* interp/compiler.boot ($compileOnlyCertainItems): Remove.
* interp/define.boot ($NRTslot1Info): Likewise.
(getInfovecCode): Add additional environment argument. Adjust caller.
Call NRTmakeSlot1Info here.
(NRTgetLookupFunction): Lose second and third arguments. They are
derivable from the DB argument. Adjust caller.
(compDefineFunctor1): Do not bind $NRTslot1Info.
(compDefineCapsuleFunction): Adjust.
(compile): Likewise.
* interp/i-syscmd.boot (compilerDoitWithScreenedLisplib):
Remove. Adjust caller.
* interp/nruncomp.boot (NRTmakeSlot1Info): Tak a DB argument.
Adjust caller.
(mkSlot1sublis): Remove.
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index a6483122..ec20fd06 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -527,7 +527,6 @@ compileSpad2Cmd args == optList := '( _ break _ constructor _ - functions _ library _ lisp _ new _ @@ -543,7 +542,6 @@ compileSpad2Cmd args == ) $scanIfTrue : local := false - $compileOnlyCertainItems : local := nil $f : local := nil -- compiler $m : local := nil -- variables @@ -571,10 +569,6 @@ compileSpad2Cmd args == fullopt is 'break => $scanIfTrue := nil fullopt is 'vartrace => $QuickLet := false fullopt is 'lisp => throwKeyedMsg("S2IZ0036",['")lisp"]) - fullopt is 'functions => - null optargs => - throwKeyedMsg("S2IZ0037",['")functions"]) - $compileOnlyCertainItems := optargs fullopt is 'constructor => null optargs => throwKeyedMsg("S2IZ0037",['")constructor"]) @@ -590,11 +584,7 @@ compileSpad2Cmd args == $InteractiveMode : local := nil -- avoid Boolean semantics transformations based on syntax only $normalizeTree: local := false - if $compileOnlyCertainItems then - null constructor => sayKeyedMsg("S2IZ0040",nil) - compilerDoitWithScreenedLisplib(constructor, fun) - else - compilerDoit(constructor, fun) + compilerDoit(constructor, fun) if not $buildingSystemAlgebra then extendLocalLibdb $newConlist terminateSystemCommand() @@ -615,17 +605,6 @@ compilerDoit(constructor, fun) == null member(ii,$constructorsSeen) => sayBrightly ['">>> Warning ",'"%b",ii,'"%d",'" was not found"] -compilerDoitWithScreenedLisplib(constructor, fun) == - EMBED('RWRITE, - '(LAMBDA (KEY VALUE STREAM) - (COND ((AND (EQ STREAM $libFile) - (NOT (MEMBER KEY $saveableItems))) - VALUE) - ((NOT NIL) - (RWRITE KEY VALUE STREAM)))) ) - (try compilerDoit(constructor,fun); finally SEQ(UNEMBED 'RWRITE)) - - --% )copyright -- display copyright notice summary l == |