.lisp -> .scheme
Signed-off-by: Keith Packard <keithp@keithp.com>
+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 > $@
(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))