planetarium: Rename fancy-... to r3rs-...

diff --git a/src/planetarium/mit-r3rs.scm b/src/planetarium/mit-r3rs.scm
index 0fccd641cd7286b63833078c54dd96d3a284fc08..481c9b8f36e9aa1d518ad7faa9e6dd645a2b405a 100644 (file)
--- a/src/planetarium/mit-r3rs.scm
+++ b/src/planetarium/mit-r3rs.scm
@@ -61,10 +61,10 @@ USA.
 (define (essential-string-append a b)
   (string-append a b))
 
-(define (fancy-number->string number format)
-  (error "Unimplemented: fancy-number->string:" number format))
+(define (r3rs-number->string number format)
+  (error "Unimplemented: r3rs-number->string:" number format))
 
-(define (fancy-string->number string exactness radix)
+(define (r3rs-string->number string exactness radix)
   (let ((n (string->number string (case radix
                                    ((B) 2)
                                    ((O) 8)
@@ -77,7 +77,7 @@ USA.
       ((I) (exact->inexact n))
       (else (error "Not an exactness:" exactness)))))
 
-(define-syntax fancy-atan
+(define-syntax r3rs-atan
   (syntax-rules ()
     ((_ t) (ATAN t))
     ((_ y x) (ATAN2 y x))))
\ No newline at end of file

diff --git a/src/planetarium/mit.pkg b/src/planetarium/mit.pkg
index 2266140517b64f78fe737d187503d371f5bf4fc1..182667bbaa2f29391531e3b0a9ca4d99b74a4460 100644 (file)
--- a/src/planetarium/mit.pkg
+++ b/src/planetarium/mit.pkg
@@ -76,9 +76,9 @@ USA.
          string-set!  tan transcript-off transcript-on truncate
          vector-fill! with-input-from-file with-output-to-file)
   (import (r3rs extras)
-         (number->string fancy-number->string)
-         (string->number fancy-string->number)
-         (atan fancy-atan)))
+         (number->string r3rs-number->string)
+         (string->number r3rs-string->number)
+         (atan r3rs-atan)))
 
 (define-package (r3rs extras)
   (parent ())