From 8efa78fb1bfa0e9afce20922020129130f9c69be Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 28 Dec 2010 03:37:28 +0000
Subject: Clean up

---
 src/boot/scanner.boot       | 2 +-
 src/boot/strap/tokens.clisp | 3 ++-
 src/boot/tokens.boot        | 1 +
 3 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/boot')

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"]  , _
-- 
cgit v1.2.3