conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* moved fxlognot to ikarus.fixnums

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 04:21:48 -04:00
parent a334a2443b
commit 17d8da7486
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

5
src/ikarus.core.ss
View File

@ -29,11 +29,6 @@
(error 'char->integer "~s is not a character" x)) (error 'char->integer "~s is not a character" x))
($char->fixnum x))) ($char->fixnum x)))
(primitive-set! 'fxlognot
(lambda (x)
(unless (fixnum? x)
(error 'fxlognot "~s is not a fixnum" x))
($fxlognot x)))
(let () (let ()
(define fill! (define fill!

12
src/ikarus.fixnums.ss
View File

@ -1,9 +1,9 @@
(library (ikarus fixnums) (library (ikarus fixnums)
(export fxzero? fxadd1 fxsub1) (export fxzero? fxadd1 fxsub1 fxlognot)
(import (import
(only (scheme) $fxadd1 $fxsub1) (only (scheme) $fxadd1 $fxsub1 $fxlognot)
(except (ikarus) fxzero? fxadd1 fxsub1)) (except (ikarus) fxzero? fxadd1 fxsub1 fxlognot))
(define fxzero? (define fxzero?
(lambda (x) (lambda (x)
@ -24,4 +24,10 @@
($fxsub1 n) ($fxsub1 n)
(error 'fxsub1 "~s is not a fixnum" n)))) (error 'fxsub1 "~s is not a fixnum" n))))
(define fxlognot
(lambda (x)
(unless (fixnum? x)
(error 'fxlognot "~s is not a fixnum" x))
($fxlognot x)))
) )