diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-10 09:47:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-10 09:47:27 +0000 |
commit | 93f026d1c803148e80bb23756ee656bf7ee19a8d (patch) | |
tree | fc355007a4ec227405059068052f1c7eb3bf33ac /src/interp/int-top.boot | |
parent | 7730f8fafe5dea4ab3ba8c4659a4d295689e1818 (diff) | |
download | open-axiom-93f026d1c803148e80bb23756ee656bf7ee19a8d.tar.gz |
Unify and ECHO-META under
Diffstat (limited to 'src/interp/int-top.boot')
-rw-r--r-- | src/interp/int-top.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index a200fc17..2c1cb0ed 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -44,7 +44,7 @@ ncParseFromString s == zeroOneTran packageTran CATCH($SpadReaderTag, parseFromString s) ncINTERPFILE(file, echo) == - $EchoLines: local := echo + $Echo: local := echo $ReadingFile: local := true SpadInterpretFile file @@ -199,7 +199,7 @@ intloopEchoParse s== [dq,stream]:=first s [lines,rest]:=ncloopDQlines(dq,$lines) setCurrentLine(mkLineList(lines)) - if $EchoLines then ncloopPrintLines lines + if $Echo then ncloopPrintLines lines $lines:=rest [[[lines,npParse dqToList dq]],:rest s] |