mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-24 21:50:20 +02:00
Use re-export' instead of
export' for re-exported core bindings. Do
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:
parent
521194715d
commit
e9965e8fb7
1 changed files with 105 additions and 104 deletions
|
@ -48,7 +48,7 @@
|
|||
|
||||
(module-use! %module-public-interface null-interface)
|
||||
|
||||
(export eqv? eq? equal?
|
||||
(re-export eqv? eq? equal?
|
||||
number? complex? real? rational? integer?
|
||||
exact? inexact?
|
||||
= < > <= >=
|
||||
|
@ -58,9 +58,9 @@
|
|||
abs
|
||||
quotient remainder modulo
|
||||
gcd lcm
|
||||
numerator denominator
|
||||
;;numerator denominator XXX
|
||||
;;rationalize XXX
|
||||
floor ceiling truncate round
|
||||
rationalize
|
||||
exp log sin cos tan asin acos atan
|
||||
sqrt
|
||||
expt
|
||||
|
@ -136,7 +136,6 @@
|
|||
dynamic-wind
|
||||
|
||||
eval
|
||||
null-environment
|
||||
|
||||
input-port? output-port?
|
||||
current-input-port current-output-port
|
||||
|
@ -156,6 +155,8 @@
|
|||
;;transcript-off
|
||||
)
|
||||
|
||||
(export null-environment)
|
||||
|
||||
(define (null-environment n)
|
||||
(if (not (= n 5))
|
||||
(scm-error 'misc-error 'null-environment
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue