diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-28 20:51:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 20:51:13 +0000 |
commit | 77f815abfd7c7d429b6bba09f249ae195ec04898 (patch) | |
tree | 4d61a52ac0610a9e2ac0d2d94a155799dab0f6bd /src/boot/translator.boot | |
parent | 8efa78fb1bfa0e9afce20922020129130f9c69be (diff) | |
download | open-axiom-77f815abfd7c7d429b6bba09f249ae195ec04898.tar.gz |
more cleanup
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r-- | src/boot/translator.boot | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 5d2e0a71..085e6755 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -416,13 +416,13 @@ translateToplevel(b,export?) == %Module(m,ds) => $currentModuleName := m $foreignsDefsForCLisp := nil - [["PROVIDE", STRING m], + [["PROVIDE", symbolName m], :[first translateToplevel(d,true) for d in ds]] %Import(m) => if getOptionValue "import" ~= '"skip" then - bootImport STRING m - [["IMPORT-MODULE", STRING m]] + bootImport symbolName m + [["IMPORT-MODULE", symbolName m]] %ImportSignature(x, sig) => genImportDeclaration(x, sig) @@ -450,8 +450,8 @@ translateToplevel(b,export?) == %Structure(t,alts) => [bfCreateDef alt for alt in alts] %Namespace n => - $activeNamespace := STRING n - [["IN-PACKAGE",STRING n]] + $activeNamespace := symbolName n + [["IN-PACKAGE",symbolName n]] %Lisp s => shoeReadLispString(s,0) @@ -697,30 +697,30 @@ PSTTOMC string== shoePCompileTrees shoeTransformString string BOOTLOOP() == - a:=READ_-LINE() + a := readLine() #a=0=> - writeLine '"Boot Loop; to exit type ] " - BOOTLOOP() + writeLine '"Boot Loop; to exit type ] " + BOOTLOOP() b:=shoePrefix? ('")console",a) b => - stream:= _*TERMINAL_-IO_* - PSTTOMC bRgen stream - BOOTLOOP() - a.0='"]".0 => nil + stream:= _*TERMINAL_-IO_* + PSTTOMC bRgen stream + BOOTLOOP() + a.0 = char "]" => nil PSTTOMC [a] BOOTLOOP() BOOTPO() == - a:=READ_-LINE() + a := readLine() #a=0=> - writeLine '"Boot Loop; to exit type ] " - BOOTPO() + writeLine '"Boot Loop; to exit type ] " + BOOTPO() b:=shoePrefix? ('")console",a) b => - stream:= _*TERMINAL_-IO_* - PSTOUT bRgen stream - BOOTPO() - a.0='"]".0 => nil + stream:= _*TERMINAL_-IO_* + PSTOUT bRgen stream + BOOTPO() + a.0 = char "]" => nil PSTOUT [a] BOOTPO() |