diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
| commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
| tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/i-util.boot | |
| parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
| download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz | |
* More cleanup
Diffstat (limited to 'src/interp/i-util.boot')
| -rw-r--r-- | src/interp/i-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index c15dea3b..367eeff1 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -46,12 +46,12 @@ $intTopLevel == inputPrompt str == -- replaces older INPUT-PROMPT - atom (x := $SCREENSIZE()) => NIL + atom (x := $SCREENSIZE()) => nil p := first(x) - 2 y := $OLDLINE - SETQ($OLDLINE,NIL) + SETQ($OLDLINE,nil) y => _$SHOWLINE(strconc(str,EBCDIC 19,y),p) - 0 = # str => NIL + 0 = # str => nil _$SHOWLINE(strconc(str,EBCDIC 19),p) protectedPrompt(:p) == |