diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-10 00:00:23 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-10 00:00:23 -0800 |
| commit | 0d3365e2c04793cd8432c30a66881f53385a2e60 (patch) | |
| tree | 4779bee9b0178e946ef037db7e4a74877efd9149 /src | |
| parent | 111622dbcd56c225a9d5ace9f0ef745e62f8a94c (diff) | |
altos/scheme: Fix name of constant scheme file
.lisp -> .scheme
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/scheme/Makefile | 4 | ||||
| -rw-r--r-- | src/scheme/ao_scheme_const.scheme | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/scheme/Makefile b/src/scheme/Makefile index ea94c1c0..dc36dde1 100644 --- 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 422bdd63..ab6a309a 100644 --- 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)) |