mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-24 21:50:20 +02:00
Code Activity

Use re-export' instead of export' for re-exported core bindings. Do

Browse source 
not re-export `numerator', `denominator' and `rationalize' since Guile
does not have them.  Continue to use `export' for `null-environment'.
This commit is contained in:
Marius Vollmer 2001-07-12 23:27:23 +00:00
parent 521194715d
commit e9965e8fb7
1 changed files with 105 additions and 104 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ice-9/safe-r5rs.scm
View file

@ -48,7 +48,7 @@
(module-use! %module-public-interface null-interface) (module-use! %module-public-interface null-interface)
(export eqv? eq? equal? (re-export eqv? eq? equal?
number? complex? real? rational? integer? number? complex? real? rational? integer?
exact? inexact? exact? inexact?
= < > <= >= = < > <= >=
@ -58,9 +58,9 @@
abs abs
quotient remainder modulo quotient remainder modulo
gcd lcm gcd lcm
numerator denominator ;;numerator denominator XXX
;;rationalize XXX
floor ceiling truncate round floor ceiling truncate round
rationalize
exp log sin cos tan asin acos atan exp log sin cos tan asin acos atan
sqrt sqrt
expt expt
@ -136,7 +136,6 @@
dynamic-wind dynamic-wind
eval eval
null-environment
input-port? output-port? input-port? output-port?
current-input-port current-output-port current-input-port current-output-port
@ -156,6 +155,8 @@
;;transcript-off ;;transcript-off
) )
(export null-environment)
(define (null-environment n) (define (null-environment n)
(if (not (= n 5)) (if (not (= n 5))
(scm-error 'misc-error 'null-environment (scm-error 'misc-error 'null-environment