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

* added positive?

This commit is contained in:
Abdulaziz Ghuloum 2007-05-11 23:14:23 -04:00
parent 1feea6c243
commit c85495a4f2
3 changed files with 3 additions and 1 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.

3
src/ikarus.numerics.ss
View File

@ -23,13 +23,14 @@
(library (ikarus generic-arithmetic) (library (ikarus generic-arithmetic)
(export + - * zero? = < <= > >= add1 sub1 quotient remainder (export + - * zero? = < <= > >= add1 sub1 quotient remainder
positive?
quotient+remainder number->string string->number) quotient+remainder number->string string->number)
(import (import
(ikarus system $fx) (ikarus system $fx)
(ikarus system $chars) (ikarus system $chars)
(ikarus system $strings) (ikarus system $strings)
(except (ikarus) + - * zero? = < <= > >= add1 sub1 quotient (except (ikarus) + - * zero? = < <= > >= add1 sub1 quotient
remainder quotient+remainder number->string remainder quotient+remainder number->string positive?
string->number)) string->number))
(define (fixnum->flonum x) (define (fixnum->flonum x)

1
src/makefile.ss
View File

@ -289,6 +289,7 @@
[bignum? i] [bignum? i]
[integer? i] [integer? i]
[flonum? i] [flonum? i]
[positive? i r]
[quotient i r] [quotient i r]
[remainder i r] [remainder i r]
[quotient+remainder i r] [quotient+remainder i r]