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

* Added a $bignums library that's now just holding the names of 

primitive bignum functions.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-16 06:02:34 -04:00
parent 2ee587d26d
commit e3bb91ad08
4 changed files with 6 additions and 9 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.

7
src/ikarus.pretty-print.ss
View File

@ -423,13 +423,6 @@
(cond (cond
[(not sep) [(not sep)
(output-rest-multi box* '(#f . #f) p col left)] (output-rest-multi box* '(#f . #f) p col left)]
#;[(fx<= (fx+ (sum box*) col) (pretty-width))
(let g ([box* box*] [p p] [col col])
(cond
[(null? box*) col]
[else
(display " " p)
(g (cdr box*) p (f (car box*) p (fxadd1 col)))]))]
[else [else
(let g ([box* box*] [p p] [left (fx+ left sep)] [col col]) (let g ([box* box*] [p p] [left (fx+ left sep)] [col col])
(cond (cond

1
src/ikarus.writer.ss
View File

@ -98,7 +98,6 @@
(write-char #\) p) (write-char #\) p)
i)))) i))))
(define write-record (define write-record
(lambda (x p m h i) (lambda (x p m h i)
(write-char #\# p) (write-char #\# p)

7
src/makefile.ss
View File

@ -118,6 +118,7 @@
[$chars (ikarus system $chars) #f] [$chars (ikarus system $chars) #f]
[$strings (ikarus system $strings) #f] [$strings (ikarus system $strings) #f]
[$vectors (ikarus system $vectors) #f] [$vectors (ikarus system $vectors) #f]
[$bignums (ikarus system $bignums) #f]
[$bytes (ikarus system $bytevectors) #f] [$bytes (ikarus system $bytevectors) #f]
[$fx (ikarus system $fx) #f] [$fx (ikarus system $fx) #f]
[$symbols (ikarus system $symbols) #f] [$symbols (ikarus system $symbols) #f]
@ -132,7 +133,6 @@
[$boot (ikarus system $bootstrap) #f] [$boot (ikarus system $bootstrap) #f]
)) ))
(define bootstrap-collection (define bootstrap-collection
(let ([ls (map (let ([ls (map
(lambda (x) (lambda (x)
@ -499,6 +499,11 @@
[$bytevector-u8-ref $bytes] [$bytevector-u8-ref $bytes]
[$bytevector-set! $bytes] [$bytevector-set! $bytes]
[$make-bignum $bignums]
[$bignum-sign $bignums]
[$bignum-size $bignums]
[$bignum-byte-ref $bignums]
[$bignum-byte-set! $bignums]
[$make-vector $vectors] [$make-vector $vectors]
[$vector-length $vectors] [$vector-length $vectors]