diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-28 03:37:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 03:37:28 +0000 |
| commit | 8efa78fb1bfa0e9afce20922020129130f9c69be (patch) | |
| tree | fa6fb18ca4160751aa65badb7048b6225783616f /src/boot | |
| parent | dbbc18b48695c2339520e9ba1e640f7559ff2e8a (diff) | |
| download | open-axiom-8efa78fb1bfa0e9afce20922020129130f9c69be.tar.gz | |
Clean up
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/scanner.boot | 2 | ||||
| -rw-r--r-- | src/boot/strap/tokens.clisp | 3 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
3 files changed, 4 insertions, 2 deletions
diff --git a/src/boot/scanner.boot b/src/boot/scanner.boot index f148cd84..46325a56 100644 --- a/src/boot/scanner.boot +++ b/src/boot/scanner.boot @@ -355,7 +355,7 @@ shoeIdEnd(line,n)== shoeDigit x== - DIGIT_-CHAR_-P x + digit? x shoeW(b)== n1 := $n diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 101f143d..58a9b3d7 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -219,7 +219,8 @@ (LIST '|and| 'AND) (LIST '|append| 'APPEND) (LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM) (LIST '|canonicalFilename| 'PROBE-FILE) - (LIST '|char?| 'CHARACTERP) (LIST '|cons?| 'CONSP) + (LIST '|char?| 'CHARACTERP) + (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP) (LIST '|copy| 'COPY) (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index bf7cb255..c931953a 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -262,6 +262,7 @@ for i in [ _ ["atom", "ATOM"] , _ ["canonicalFilename", "PROBE-FILE"], _ ["char?", "CHARACTERP"] , _ + ["codePoint", "CHAR-CODE"], _ ["cons?", "CONSP"] , _ ["copy", "COPY"] , _ ["croak", "CROAK"] , _ |