diff options
author | Julian Graham <julian.graham@aya.yale.edu> | 2010-11-17 00:59:45 -0500 |
---|---|---|
committer | Julian Graham <julian.graham@aya.yale.edu> | 2010-11-17 00:59:45 -0500 |
commit | b98d5a5a7607b905afa54fd2768210232fa08e16 (patch) | |
tree | 322fd61c2d644a7181f9738617dbe90fea04dc74 /module/rnrs.scm | |
parent | eeb48bc27e27976acec41dc0e59e7aaab2b886cd (diff) | |
download | guile-b98d5a5a7607b905afa54fd2768210232fa08e16.tar.gz |
Add exports for missing functions from `(rnrs base)'.
* module/rnrs.scm (boolean=?): New export.
Fix typo in export of`integer-valued?'.
* module/rnrs/base.scm: Add exports for `exact' and `inexact'.
(boolean=?, symbol=?, infinite?, finite?, exact-integer-sqrt,
integer-valued?, rational-valued?, real-valued?): New functions.
* test-suite/tests/r6rs-base.test (boolean=?, symbol=?, infinite?,
finite?, exact-integer-sqrt, integer-valued?, rational-valued?,
real-valued?): New test prefixes and tests.
Diffstat (limited to 'module/rnrs.scm')
-rw-r--r-- | module/rnrs.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/module/rnrs.scm b/module/rnrs.scm index c329aeb07..c6f5db116 100644 --- a/module/rnrs.scm +++ b/module/rnrs.scm @@ -52,18 +52,18 @@ boolean? symbol? char? vector? null? pair? number? string? procedure? define define-syntax syntax-rules lambda let let* let-values - let*-values letrec letrec* begin quote lambda if set! cond case or and not - eqv? equal? eq? + - * / max min abs numerator denominator gcd lcm - floor ceiling truncate round rationalize real-part imag-part + let*-values letrec letrec* begin quote lambda if set! cond case or + and not eqv? equal? eq? + - * / max min abs numerator denominator gcd + lcm floor ceiling truncate round rationalize real-part imag-part make-rectangular angle div mod div-and-mod div0 mod0 div0-and-mod0 expt exact-integer-sqrt sqrt exp log sin cos tan asin acos atan make-polar magnitude angle complex? real? rational? integer? exact? - inexact? real-valued? rational-valued? integer-values? zero? + inexact? real-valued? rational-valued? integer-valued? zero? positive? negative? odd? even? nan? finite? infinite? exact inexact = - < > <= >= number->string string->number cons car cdr caar cadr cdar - cddr caaar caadr cadar cdaar caddr cdadr cddar cdddr caaaar caaadr - caadar cadaar cdaaar cddaar cdadar cdaadr cadadr caaddr caddar cadddr - cdaddr cddadr cdddar cddddr list? list length append reverse + < > <= >= number->string string->number boolean=? cons car cdr caar + cadr cdar cddr caaar caadr cadar cdaar caddr cdadr cddar cdddr caaaar + caaadr caadar cadaar cdaaar cddaar cdadar cdaadr cadadr caaddr caddar + cadddr cdaddr cddadr cdddar cddddr list? list length append reverse list-tail list-ref map for-each symbol->string string->symbol symbol=? char->integer integer->char char=? char<? char>? char<=? char>=? make-string string string-length string-ref string=? string<? string>? |