From 0d3365e2c04793cd8432c30a66881f53385a2e60 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Sun, 10 Dec 2017 00:00:23 -0800 Subject: altos/scheme: Fix name of constant scheme file .lisp -> .scheme Signed-off-by: Keith Packard --- src/scheme/ao_scheme_const.scheme | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/scheme/ao_scheme_const.scheme') 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)) -- cgit v1.2.3