altos/scheme: Fix name of constant scheme file

[fw/altos] / src / scheme / ao_scheme_const.scheme

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))