Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 06:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing (scheme char) imports after earlier refactoring; adding definitions for finite? and nan?.

Browse source
This commit is contained in:
Alex Shinn 2011-11-26 11:35:32 +09:00
parent 3e21d00b91
commit 8094d585b8
3 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/scheme/char.sld
View file

@ -1,6 +1,6 @@
(define-library (scheme char) (define-library (scheme char)
(import (scheme)) (import (scheme) (only (scheme base) string-map))
(export (export
char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
char-downcase char-foldcase char-lower-case? char-numeric? char-downcase char-foldcase char-lower-case? char-numeric?

6
lib/scheme/inexact.scm Normal file
View file

@ -0,0 +1,6 @@
(define (finite? x)
(and (real? x) (not (nan? x)) (not (= x +inf.0)) (not (= x -inf.0))))
(define (nan? x)
(and (real? x) (not (= x x))))

3
lib/scheme/inexact.sld
View file

@ -1,4 +1,5 @@
(define-library (scheme inexact) (define-library (scheme inexact)
(import (scheme)) (import (scheme))
(export acos asin atan cos exp finite? log nan? sin sqrt tan)) (export acos asin atan cos exp finite? log nan? sin sqrt tan)
(include "inexact.scm"))