altos/scheme: Fix name of constant scheme file

.lisp -> .scheme

Signed-off-by: Keith Packard <keithp@keithp.com>

diff --git a/src/scheme/Makefile b/src/scheme/Makefile
index ea94c1c0cb4111c57875a023b26f4dbed2c4b523..dc36dde1bd2a13cd2f6772093d729c30c4351e71 100644 (file)
--- a/src/scheme/Makefile
+++ b/src/scheme/Makefile
@@ -5,8 +5,8 @@ clean:
        +cd test && make clean
        rm -f ao_scheme_const.h ao_scheme_builtin.h
 
-ao_scheme_const.h: ao_scheme_const.lisp make-const/ao_scheme_make_const
-       make-const/ao_scheme_make_const -o $@ ao_scheme_const.lisp
+ao_scheme_const.h: ao_scheme_const.scheme make-const/ao_scheme_make_const
+       make-const/ao_scheme_make_const -o $@ ao_scheme_const.scheme
 
 ao_scheme_builtin.h: ao_scheme_make_builtin ao_scheme_builtin.txt
        nickle ao_scheme_make_builtin ao_scheme_builtin.txt > $@

diff --git a/src/scheme/ao_scheme_const.scheme b/src/scheme/ao_scheme_const.scheme
index 422bdd635cca897f87cb759518cd20cb494c99d8..ab6a309a7e9193db457038f5a981b2169de99fef 100644 (file)
--- a/src/scheme/ao_scheme_const.scheme
+++ b/src/scheme/ao_scheme_const.scheme
@@ -641,7 +641,7 @@
 (char-whitespace? #\space)
 
 (define (char->integer c) c)
-(define (integer->char c) char-integer)
+(define integer->char char->integer)
 
 (define (char-upcase c) (if (char-lower-case? c) (+ c (- #\A #\a)) c))