From 47b88c850fbcfc63403730009c30c02b362087cc Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 9 Oct 2012 00:27:56 +0900 Subject: [PATCH] Adding (features) procedure. --- lib/scheme/base.sld | 2 +- lib/scheme/extras.scm | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/scheme/base.sld b/lib/scheme/base.sld index c6454eae..8baabcd1 100644 --- a/lib/scheme/base.sld +++ b/lib/scheme/base.sld @@ -23,7 +23,7 @@ define-record-type define-syntax define-values denominator do dynamic-wind else eof-object? eq? equal? eqv? error 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 guard if import inexact inexact? input-port? integer->char integer? lambda lcm length let let* let*-values let-syntax let-values diff --git a/lib/scheme/extras.scm b/lib/scheme/extras.scm index b657e307..5488825c 100644 --- a/lib/scheme/extras.scm +++ b/lib/scheme/extras.scm @@ -1,4 +1,6 @@ +(define (features) *features*) + (define exact inexact->exact) (define inexact exact->inexact)