diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-05 11:36:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 11:36:37 +0000 |
commit | fb3bb6231462cddfb70301ea1672ebc04c8e829a (patch) | |
tree | 316e516bc5f0920f407fdae6e54780cdbdd320f2 /src/boot | |
parent | 94c6cd6e946964b3710dbe24dbca7c44a36beee0 (diff) | |
download | open-axiom-fb3bb6231462cddfb70301ea1672ebc04c8e829a.tar.gz |
more cleanups
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/strap/translator.clisp | 4 | ||||
-rw-r--r-- | src/boot/translator.boot | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 3ad025ec..7c48e9fe 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -1138,7 +1138,7 @@ (DEFUN |shoeXref| (|a| |fn|) (PROG (|$bfClamming| |$GenVarCounter| |$bootUsed| |$bootDefined| - |$lispWordTable| |out|) + |$lispWordTable| |stream| |out|) (DECLARE (SPECIAL |$bfClamming| |$GenVarCounter| |$bootUsed| |$bootDefined| |$lispWordTable|)) (RETURN @@ -1154,7 +1154,7 @@ (SETQ |out| (CONCAT |fn| ".xref")) (UNWIND-PROTECT (PROGN - (SETQ |out| (|outputTextFile| |out|)) + (SETQ |stream| (|outputTextFile| |out|)) (|shoeXReport| |stream|) |out|) (|closeFile| |stream|))))))) diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 2ec71dfc..d52ead6c 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -651,7 +651,7 @@ shoeXref(a,fn)== shoeDefUse shoeTransformStream a out := strconc(fn,'".xref") try - out := outputTextFile out + stream := outputTextFile out shoeXReport stream out finally closeFile stream |