Remove vestigial char.* builtins
This commit is contained in:
		
							parent
							
								
									464dac0e6c
								
							
						
					
					
						commit
						41eb286f90
					
				|  | @ -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 }, | ||||||
| 
 | 
 | ||||||
|  |  | ||||||
|  | @ -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>? >) | ||||||
|  |  | ||||||
		Loading…
	
		Reference in New Issue