diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
| commit | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (patch) | |
| tree | 2e2a2eb23ff2cb76b6eb3ae763a480ac1f0078ad /src/interp/ht-util.boot | |
| parent | 868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff) | |
| download | open-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz | |
* interp/: More cleanup.
Diffstat (limited to 'src/interp/ht-util.boot')
| -rw-r--r-- | src/interp/ht-util.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index c840f667..22667c3c 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -220,8 +220,8 @@ bcIssueHt line == mapStringize l == ATOM l => l - RPLACA(l, basicStringize CAR l) - RPLACD(l, mapStringize CDR l) + RPLACA(l, basicStringize first l) + RPLACD(l, mapStringize rest l) l basicStringize s == @@ -534,14 +534,14 @@ parseAndEval1 string == syntaxError := false pform := v := applyWithOutputToString('ncParseFromString, [string]) - CAR v => CAR v + first v => first v syntaxError := true - CDR v + rest v syntaxError => '"Syntax Error " pform => val := applyWithOutputToString('processInteractive, [pform, nil]) - CAR val => CAR val + first val => first val '"Type Analysis Error" nil @@ -582,8 +582,8 @@ unescapeStringsInForm form == str := NSUBSTITUTE(char '_", $funnyQuote, form) NSUBSTITUTE(char '_\, $funnyBacks, str) CONSP form => - unescapeStringsInForm CAR form - unescapeStringsInForm CDR form + unescapeStringsInForm first form + unescapeStringsInForm rest form form form |