From fdea871703e137d6e7eaa84a6d5277c34dd5479e Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 4 Mar 2017 01:04:02 -0700 Subject: [PATCH] planetarium: Do not put utf8 in string literals. --- src/planetarium/geometry.scm | 8 ++++---- src/planetarium/mit.pkg | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) 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! -- 2.25.1