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/scheme/ao_scheme_const.scheme | |
| 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/scheme/ao_scheme_const.scheme')
| -rw-r--r-- | src/scheme/ao_scheme_const.scheme | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |