From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 4 Mar 2017 08:04:02 +0000 (-0700)
Subject: planetarium: Do not put utf8 in string literals.
X-Git-Tag: mit-scheme-pucked-9.2.12~197
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fdea871703e137d6e7eaa84a6d5277c34dd5479e;p=mit-scheme.git

planetarium: Do not put utf8 in string literals.
---

diff --git a/src/planetarium/geometry.scm b/src/planetarium/geometry.scm
index 66496c69a..c5b9d9ecd 100644
--- a/src/planetarium/geometry.scm
+++ b/src/planetarium/geometry.scm
@@ -135,14 +135,14 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	      (lng-min (flo:* (flo:- abs-lng lng-deg) 60.)))
 	  (string-append
 	   (number->string (inexact->exact lat-deg) '(int))
-	   "°"
+	   "\xb0;"
 	   (number->string lat-min '(fix 3))
-	   "′"
+	   "\x2032;"
 	   (if neg-lat? "S " "N ")
 	   (number->string (inexact->exact lng-deg) '(int))
-	   "°"
+	   "\xb0;"
 	   (number->string lng-min '(fix 3))
-	   "′"
+	   "\x2032;"
 	   (if neg-lng? "W" "E")))))))
 
 (define (geodesic-distance p1 p2)
diff --git a/src/planetarium/mit.pkg b/src/planetarium/mit.pkg
index 63e6b98a9..54273183f 100644
--- a/src/planetarium/mit.pkg
+++ b/src/planetarium/mit.pkg
@@ -101,7 +101,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	  ;; anyway for completeness (and analysis someday).
 	  guarantee integer-divide round->exact truncate->exact
 	  ->flonum flo:= flo:< flo:<= flo:+ flo:- flo:* flo:/
-	  flo:negative? flo:negate flo:truncate
+	  flo:abs flo:negative? flo:negate flo:truncate
 	  flo:sin flo:cos flo:atan2 flo:sqrt flo:atan
 	  flo:vector-cons flo:vector-ref flo:vector-set!