From 5759fe80eceb82c8d8f4c1133e1d055895959b6e Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sat, 27 Apr 2013 17:48:31 -0700
Subject: [PATCH] planetarium: Rename fancy-... to r3rs-...

---
 src/planetarium/mit-r3rs.scm | 8 ++++----
 src/planetarium/mit.pkg      | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

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 ())
-- 
2.25.1