48 lines
1.2 KiB
Scheme
48 lines
1.2 KiB
Scheme
|
; definitions of standard scheme procedures in terms of
|
||
|
|
; femtolisp procedures
|
||
|
|
|
||
|
|
(define vector-ref aref)
|
||
|
|
(define vector-set! aset!)
|
||
|
|
(define vector-length length)
|
||
|
|
(define make-vector vector.alloc)
|
||
|
|
|
||
|
|
(define array-ref! aref)
|
||
|
|
(define (array-set! a obj i0 . idxs)
|
||
|
|
(if (null? idxs)
|
||
|
|
(aset! a i0 obj)
|
||
|
|
(error "array-set!: multiple dimensions not yet implemented")))
|
||
|
|
|
||
|
|
(define (array-dimensions a)
|
||
|
|
(list (length a)))
|
||
|
|
|
||
|
|
(define (complex? x) #f)
|
||
|
|
(define (real? x) (number? x))
|
||
|
|
(define (rational? x) (integer? x))
|
||
|
|
(define (exact? x) (integer? x))
|
||
|
|
(define (inexact? x) (not (exact? x)))
|
||
|
|
(define quotient div0)
|
||
|
|
|
||
|
|
(define (char->integer c) (fixnum c))
|
||
|
|
(define (integer->char i) (wchar i))
|
||
|
|
(define char-upcase char.upcase)
|
||
|
|
(define char-downcase char.downcase)
|
||
|
|
(define char=? =)
|
||
|
|
(define char<? <)
|
||
|
|
(define char>? >)
|
||
|
|
(define char<=? <=)
|
||
|
|
(define char>=? >=)
|
||
|
|
|
||
|
|
(define string=? =)
|
||
|
|
(define string<? <)
|
||
|
|
(define string>? >)
|
||
|
|
(define string<=? <=)
|
||
|
|
(define string>=? >=)
|
||
|
|
(define string-copy copy)
|
||
|
|
(define string-append string)
|
||
|
|
(define string-length string.count)
|
||
|
|
(define string->symbol symbol)
|
||
|
|
(define (symbol->string s) (string s))
|
||
|
|
|
||
|
|
(define (string-ref s i)
|
||
|
|
(string.char s (string.inc s 0 i)))
|