* moved (ikarus fixnums) to its own file ikarus.fixnums.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 04:20:42 -04:00
parent 7e421bb907
commit a334a2443b
4 changed files with 28 additions and 26 deletions

Binary file not shown.

27
src/ikarus.fixnums.ss Normal file
View File

@ -0,0 +1,27 @@
(library (ikarus fixnums)
(export fxzero? fxadd1 fxsub1)
(import
(only (scheme) $fxadd1 $fxsub1)
(except (ikarus) fxzero? fxadd1 fxsub1))
(define fxzero?
(lambda (x)
(cond
[(eq? x 0) #t]
[(fixnum? x) #f]
[else (error 'fxzero? "~s is not a fixnum" x)])))
(define fxadd1
(lambda (n)
(if (fixnum? n)
($fxadd1 n)
(error 'fxadd1 "~s is not a fixnum" n))))
(define fxsub1
(lambda (n)
(if (fixnum? n)
($fxsub1 n)
(error 'fxsub1 "~s is not a fixnum" n))))
)

View File

@ -2,32 +2,6 @@
(library (ikarus fixnums)
(export fxzero? fxadd1 fxsub1)
(import
(only (scheme) $fxadd1 $fxsub1)
(except (ikarus) fxzero? fxadd1 fxsub1))
(define fxzero?
(lambda (x)
(cond
[(eq? x 0) #t]
[(fixnum? x) #f]
[else (error 'fxzero? "~s is not a fixnum" x)])))
(define fxadd1
(lambda (n)
(if (fixnum? n)
($fxadd1 n)
(error 'fxadd1 "~s is not a fixnum" n))))
(define fxsub1
(lambda (n)
(if (fixnum? n)
($fxsub1 n)
(error 'fxsub1 "~s is not a fixnum" n))))
)
(library (ikarus flonums) (library (ikarus flonums)

View File

@ -24,6 +24,7 @@
'("ikarus.handlers.ss" '("ikarus.handlers.ss"
"ikarus.multiple-values.ss" "ikarus.multiple-values.ss"
"ikarus.predicates.ss" "ikarus.predicates.ss"
"ikarus.fixnums.ss"
"ikarus.control.ss" "ikarus.control.ss"
"ikarus.collect.ss" "ikarus.collect.ss"
"ikarus.records.ss" "ikarus.records.ss"