Remove vestigial char.* builtins

This commit is contained in:
Lassi Kortela 2019-08-26 11:15:38 +03:00
parent 464dac0e6c
commit 41eb286f90
2 changed files with 0 additions and 6 deletions

View File

@ -501,10 +501,6 @@ static struct builtinspec stringfunc_info[] = {
{ "char-downcase", builtin_char_downcase }, { "char-downcase", builtin_char_downcase },
{ "char-alphabetic?", builtin_char_alphabetic }, { "char-alphabetic?", builtin_char_alphabetic },
{ "char.upcase", builtin_char_upcase },
{ "char.downcase", builtin_char_downcase },
{ "char.alphabetic?", builtin_char_alphabetic },
{ "number->string", fl_numbertostring }, { "number->string", fl_numbertostring },
{ "string->number", fl_stringtonumber }, { "string->number", fl_stringtonumber },

View File

@ -66,8 +66,6 @@
(define (char->integer c) (fixnum c)) (define (char->integer c) (fixnum c))
(define (integer->char i) (wchar i)) (define (integer->char i) (wchar i))
;(define char-upcase #f)
;(define char-downcase #f)
(define char=? eqv?) (define char=? eqv?)
(define char<? <) (define char<? <)
(define char>? >) (define char>? >)