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

* Added min.

This commit is contained in:
Abdulaziz Ghuloum 2007-06-13 11:55:37 +03:00
parent 88d8e198fc
commit 97dfd0ddcf
3 changed files with 3 additions and 2 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.

4
src/ikarus.numerics.ss
View File

@ -99,7 +99,7 @@
(library (ikarus generic-arithmetic) (library (ikarus generic-arithmetic)
(export + - * / zero? = < <= > >= add1 sub1 quotient remainder (export + - * / zero? = < <= > >= add1 sub1 quotient remainder
positive? expt gcd lcm numerator denominator exact-integer-sqrt positive? expt gcd lcm numerator denominator exact-integer-sqrt
quotient+remainder number->string string->number max quotient+remainder number->string string->number min max
exact->inexact floor ceiling log fl=? fl<? fl<=? fl>? exact->inexact floor ceiling log fl=? fl<? fl<=? fl>?
fl>=? fl+ fl-) fl>=? fl+ fl-)
(import (import
@ -114,7 +114,7 @@
remainder quotient+remainder number->string positive? remainder quotient+remainder number->string positive?
string->number expt gcd lcm numerator denominator string->number expt gcd lcm numerator denominator
exact->inexact floor ceiling log exact->inexact floor ceiling log
exact-integer-sqrt max exact-integer-sqrt min max
fl=? fl<? fl<=? fl>? fl>=? fl+ fl-)) fl=? fl<? fl<=? fl>? fl>=? fl+ fl-))
(define (fixnum->flonum x) (define (fixnum->flonum x)

1
src/makefile.ss
View File

@ -405,6 +405,7 @@
[gcd i r] [gcd i r]
[lcm i r] [lcm i r]
[max i r] [max i r]
[min i r]
[log i r] [log i r]
[numerator i r] [numerator i r]
[denominator i r] [denominator i r]