planetarium: Do not put utf8 in string literals.

diff --git a/src/planetarium/geometry.scm b/src/planetarium/geometry.scm
index 66496c69a26384885abb38addf2be5b89d9db784..c5b9d9ecdce9baa413396499287e246f9356f2b0 100644 (file)
--- 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 63e6b98a91bf39f9ae3d47863120ca0755c9f514..54273183f91e92c476f676c617c793e5f806a306 100644 (file)
--- 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!