Adding (features) procedure.

This commit is contained in:
Alex Shinn 2012-10-09 00:27:56 +09:00
parent 94ef945f8d
commit 47b88c850f
2 changed files with 3 additions and 1 deletions

View file

@ -23,7 +23,7 @@
define-record-type define-syntax define-values denominator do define-record-type define-syntax define-values denominator do
dynamic-wind else eof-object? eq? equal? eqv? error dynamic-wind else eof-object? eq? equal? eqv? error
error-object-irritants error-object-message error-object? even? error-object-irritants error-object-message error-object? even?
exact exact-integer-sqrt exact-integer? exact? expt floor exact exact-integer-sqrt exact-integer? exact? expt features floor
flush-output-port for-each gcd get-output-bytevector get-output-string flush-output-port for-each gcd get-output-bytevector get-output-string
guard if import inexact inexact? input-port? integer->char guard if import inexact inexact? input-port? integer->char
integer? lambda lcm length let let* let*-values let-syntax let-values integer? lambda lcm length let let* let*-values let-syntax let-values

View file

@ -1,4 +1,6 @@
(define (features) *features*)
(define exact inexact->exact) (define exact inexact->exact)
(define inexact exact->inexact) (define inexact exact->inexact)