diff options
author | dos-reis <gdr@axiomatics.org> | 2012-04-30 05:53:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-04-30 05:53:17 +0000 |
commit | 59dfd29ba54016b24ff691969bdd03d1b8a7225d (patch) | |
tree | d12ec33932b3443d5098e611f1502fe0bdc9e6b6 /src/interp/i-util.boot | |
parent | 7bd660a8c61540adcd0998122d89b3692cd127f8 (diff) | |
download | open-axiom-59dfd29ba54016b24ff691969bdd03d1b8a7225d.tar.gz |
* interp/fortcall.boot: Use copyTree, not COPY-TREE.
* interp/i-intern.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/i-output.boot: Use abstractChar, not EBCDIC.
* interp/i-util.boot: Likewise.
* interp/vmlisp.lisp (EBCDIC): Remove.
(CALLBELOW): Likewise.
(RE-ENABLE-INT): Likewise.
(QUOREM): Likewise.
Diffstat (limited to 'src/interp/i-util.boot')
-rw-r--r-- | src/interp/i-util.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index 4f29b071..d635f34d 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -45,18 +45,18 @@ inputPrompt str == p := first(x) - 2 y := $OLDLINE SETQ($OLDLINE,nil) - y => _$SHOWLINE(strconc(str,EBCDIC 19,y),p) + y => _$SHOWLINE(strconc(str,abstractChar 19,y),p) 0 = # str => nil - _$SHOWLINE(strconc(str,EBCDIC 19),p) + _$SHOWLINE(strconc(str,abstractChar 19),p) protectedPrompt(:p) == [str,:br] := p 0 = # str => inputPrompt str - msg := EBCDIC 29 -- start of field + msg := abstractChar 29 -- start of field msg := - if br then strconc(msg,EBCDIC 232) -- bright write protect - else strconc(msg,EBCDIC 96) -- write protect - msg := strconc(msg,str,EBCDIC 29,EBCDIC 64) -- unprotect again + if br then strconc(msg,abstractChar 232) -- bright write protect + else strconc(msg,abstractChar 96) -- write protect + msg := strconc(msg,str,abstractChar 29,abstractChar 64) -- unprotect again inputPrompt msg MKPROMPT() == |