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'.

ice-9/safe-r5rs.scm

@@ -48,113 +48,114 @@
 
 (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?
-	= < > <= >=
+	   = < > <= >=
-	zero? positive?	negative? odd? even?
+	   zero? positive?	negative? odd? even?
-	max min
+	   max min
-	+ * - /
+	   + * - /
-	abs
+	   abs
-	quotient remainder modulo
+	   quotient remainder modulo
-	gcd lcm
+	   gcd lcm
-	numerator denominator
+	   ;;numerator denominator XXX
-	floor ceiling truncate round
+	   ;;rationalize           XXX
-	rationalize
+	   floor ceiling truncate round
-	exp log sin cos tan asin acos atan
+	   exp log sin cos tan asin acos atan
-	sqrt
+	   sqrt
-	expt
+	   expt
-	make-rectangular make-polar real-part imag-part magnitude angle
+	   make-rectangular make-polar real-part imag-part magnitude angle
-	exact->inexact inexact->exact
+	   exact->inexact inexact->exact
 	   
-	number->string string->number
+	   number->string string->number
 	   
-	boolean?
+	   boolean?
-	not
+	   not
 	   
-	pair?
+	   pair?
-	cons car cdr
+	   cons car cdr
-	set-car! set-cdr!
+	   set-car! set-cdr!
-	caar cadr cdar cddr
+	   caar cadr cdar cddr
-	caaar caadr cadar caddr cdaar cdadr cddar cdddr
+	   caaar caadr cadar caddr cdaar cdadr cddar cdddr
-	caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
+	   caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
-	cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
+	   cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
-	null?
+	   null?
-	list?
+	   list?
-	list
+	   list
-	length
+	   length
-	append
+	   append
-	reverse
+	   reverse
-	list-tail list-ref
+	   list-tail list-ref
-	memq memv member
+	   memq memv member
-	assq assv assoc
+	   assq assv assoc
 	   
-	symbol?
+	   symbol?
-	symbol->string string->symbol
+	   symbol->string string->symbol
 	   
-	char?
+	   char?
-	char=? char<? char>? char<=? char>=?
+	   char=? char<? char>? char<=? char>=?
-	char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=?
+	   char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=?
-	char-alphabetic? char-numeric? char-whitespace?
+	   char-alphabetic? char-numeric? char-whitespace?
-	char-upper-case? char-lower-case?
+	   char-upper-case? char-lower-case?
-	char->integer integer->char
+	   char->integer integer->char
-	char-upcase
+	   char-upcase
-	char-downcase
+	   char-downcase
 	   
-	string?
+	   string?
-	make-string
+	   make-string
-	string
+	   string
-	string-length
+	   string-length
-	string-ref string-set!
+	   string-ref string-set!
-	string=? string-ci=?
+	   string=? string-ci=?
-	string<? string>? string<=? string>=?
+	   string<? string>? string<=? string>=?
-	string-ci<? string-ci>? string-ci<=? string-ci>=?
+	   string-ci<? string-ci>? string-ci<=? string-ci>=?
-	substring
+	   substring
-	string-length
+	   string-length
-	string-append
+	   string-append
-	string->list list->string
+	   string->list list->string
-	string-copy string-fill!
+	   string-copy string-fill!
 	   
-	vector?
+	   vector?
-	make-vector
+	   make-vector
-	vector
+	   vector
-	vector-length
+	   vector-length
-	vector-ref vector-set!
+	   vector-ref vector-set!
-	vector->list list->vector
+	   vector->list list->vector
-	vector-fill!
+	   vector-fill!
 	   
-	procedure?
+	   procedure?
-	apply
+	   apply
-	map
+	   map
-	for-each
+	   for-each
-	force
+	   force
 	   
-	call-with-current-continuation
+	   call-with-current-continuation
 	   
-	values
+	   values
-	call-with-values
+	   call-with-values
-	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
 	   
-	read
+	   read
-	read-char
+	   read-char
-	peek-char
+	   peek-char
-	eof-object?
+	   eof-object?
-	char-ready?
+	   char-ready?
 	   
-	write
+	   write
-	display
+	   display
-	newline
+	   newline
-	write-char
+	   write-char
 
-	;;transcript-on
+	   ;;transcript-on
-	;;transcript-off
+	   ;;transcript-off
-	)
+	   )
+
+(export null-environment)
 
 (define (null-environment n)
   (if (not (= n 5))