From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 28 Apr 2013 00:48:31 +0000 (-0700)
Subject: planetarium: Rename fancy-... to r3rs-...
X-Git-Tag: mit-scheme-pucked-9.2.12~497
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5759fe80eceb82c8d8f4c1133e1d055895959b6e;p=mit-scheme.git

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

diff --git a/src/planetarium/mit-r3rs.scm b/src/planetarium/mit-r3rs.scm
index 0fccd641c..481c9b8f3 100644
--- 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 226614051..182667bba 100644
--- 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 ())