diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-04 05:50:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-04 05:50:37 +0000 |
commit | 9d4b58dc1f45d4d49ce68997000825dd3e7f247a (patch) | |
tree | 81124164f4adbb0d9c8f14426ca5f35c40d625d6 /src/boot/translator.boot | |
parent | 5ec566efd3ae43b1bf470e5da19de940ac95c0dd (diff) | |
download | open-axiom-9d4b58dc1f45d4d49ce68997000825dd3e7f247a.tar.gz |
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r-- | src/boot/translator.boot | 39 |
1 files changed, 17 insertions, 22 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 679bfafd..f931975e 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -584,15 +584,12 @@ SSORT l == SORT(l,function CLESSP) bootOutLines(l,outfn,s)== - if null l - then shoeFileLine(s,outfn) - else - a:=PNAME first l - if #s +#a > 70 - then - shoeFileLine(s,outfn) - bootOutLines(l,outfn,'" ") - else bootOutLines(rest l,outfn,CONCAT(s,'" ",a)) + null l => shoeFileLine(s,outfn) + a := PNAME first l + #s + #a > 70 => + shoeFileLine(s,outfn) + bootOutLines(l,outfn,'" ") + bootOutLines(rest l,outfn,CONCAT(s,'" ",a)) -- (xref "fn") produces a cross reference listing in "fn.xref" @@ -604,19 +601,17 @@ XREF fn== shoeOpenInputFile(a,infn,shoeXref(a,fn)) shoeXref(a,fn)== - if null a - then shoeNotFound fn - else - $lispWordTable :=MAKE_-HASHTABLE ("EQ") - DO_-SYMBOLS(i(FIND_-PACKAGE "LISP"),HPUT($lispWordTable,i,true)) - $bootDefined :=MAKE_-HASHTABLE "EQ" - $bootUsed :=MAKE_-HASHTABLE "EQ" - $GenVarCounter :=0 - $bfClamming :=false - shoeDefUse shoeTransformStream a - out:=CONCAT(fn,'".xref") - shoeOpenOutputFile(stream,out,shoeXReport stream) - out + null a => shoeNotFound fn + $lispWordTable :=MAKE_-HASHTABLE ("EQ") + DO_-SYMBOLS(i(FIND_-PACKAGE "LISP"),HPUT($lispWordTable,i,true)) + $bootDefined :=MAKE_-HASHTABLE "EQ" + $bootUsed :=MAKE_-HASHTABLE "EQ" + $GenVarCounter :=0 + $bfClamming :=false + shoeDefUse shoeTransformStream a + out:=CONCAT(fn,'".xref") + shoeOpenOutputFile(stream,out,shoeXReport stream) + out shoeXReport stream== |