diff options
author | dos-reis <gdr@axiomatics.org> | 2009-04-15 08:45:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-04-15 08:45:54 +0000 |
commit | e7e3cddc7d075a5c2ed67b24fcb885329ad1eb3b (patch) | |
tree | 70800fb3b8f946ecd2eefd5b45209cba3a4982d3 /src/interp/int-top.boot | |
parent | c4fc20005aceb3af8b79f33cc9f44179b1ce011a (diff) | |
download | open-axiom-e7e3cddc7d075a5c2ed67b24fcb885329ad1eb3b.tar.gz |
Fix SF/2760823
* interp/sys-driver.boot (systemMain): Explicitly call toplevel
REPL for SBCL- and ECL-based builds.
* interp/i-toplev.boot (start): Don't special case SBCL here.
* interp/int-top.boot (spad): Likewise.
(intloop): Tidy call to SpadInterpretStream.
(SpadInterpretStream): Don't store to $fn.
* interp/msg.boot (toFile?): Don't check for $fn.
Diffstat (limited to 'src/interp/int-top.boot')
-rw-r--r-- | src/interp/int-top.boot | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 9b1d7f10..949b3241 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -78,7 +78,6 @@ spad() == $inLispVM : local := nil setOutputAlgebra "%initialize%" runspad() - %hasFeature KEYWORD::SBCL => 0 'EndOfSpad runspad() == @@ -110,12 +109,10 @@ intloop () == mode := $intRestart while mode = $intRestart repeat resetStackLimits() - mode := CATCH($intTopLevel, - SpadInterpretStream(1, ["TIM", "DALY", "?"], true)) + mode := CATCH($intTopLevel, SpadInterpretStream(1, nil, true)) SpadInterpretStream(str, source, interactive?) == - $fn : local := source pile? := not interactive? $libQuiet : local := not interactive? |