diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 14:27:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 14:27:31 +0000 |
| commit | bd5f5b0df93361d31592738fb18d77a275f04bc9 (patch) | |
| tree | e2b46b5d5ded0265990ef24f4bf2ddb9640e7fc4 /src/boot/includer.boot | |
| parent | 6661a9aa8e79dc934bde807293857f2dfc0eca6f (diff) | |
| download | open-axiom-bd5f5b0df93361d31592738fb18d77a275f04bc9.tar.gz | |
more cleanup
Diffstat (limited to 'src/boot/includer.boot')
| -rw-r--r-- | src/boot/includer.boot | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/boot/includer.boot b/src/boot/includer.boot index 249c045f..26a38ba3 100644 --- a/src/boot/includer.boot +++ b/src/boot/includer.boot @@ -66,10 +66,6 @@ PNAME x == char? x => charString x nil --- close STREAM. -shoeCLOSE stream == - CLOSE stream - -- error out if file is not found. shoeNotFound fn == coreError [fn, '" not found"] @@ -79,7 +75,7 @@ shoeNotFound fn == shoeReadLispString(s,n) == l := #s n >= l => nil - readLispFromString strconc ( "(", subString(s,n,l-n) ,")") + readLispFromString strconc( "(", subString(s,n,l-n) ,")") -- read a line from stream shoeReadLine stream == @@ -90,7 +86,7 @@ shoeConsole line == writeLine(line, _*TERMINAL_-IO_*) shoeSpaces n == - MAKE_-FULL_-CVEC(n, '".") + makeString(n,char ".") --% |