From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 26 Feb 2017 08:37:38 +0000 (-0700)
Subject: planetarium: Remove references to deprecated bindings.
X-Git-Tag: mit-scheme-pucked-9.2.12~207
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e4974c506a388ef587dcda14fdea10d57a9df04b;p=mit-scheme.git

planetarium: Remove references to deprecated bindings.
---

diff --git a/src/planetarium/mit.pkg b/src/planetarium/mit.pkg
index b43c4aa1f..4a81ab389 100644
--- a/src/planetarium/mit.pkg
+++ b/src/planetarium/mit.pkg
@@ -24,6 +24,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 ;;;; Planetarium Packaging
 
 (global-definitions runtime/)
+(global-definitions x11/)
 (global-definitions cairo/)
 (global-definitions gtk/)
 
diff --git a/src/planetarium/terrain.scm b/src/planetarium/terrain.scm
index af696867f..17088b3c5 100644
--- a/src/planetarium/terrain.scm
+++ b/src/planetarium/terrain.scm
@@ -83,7 +83,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
   (define (get-flonum-option name)
     (let ((v (get-keyword-value options name no-value)))
-      (guarantee-real v name)
+      (guarantee real? v name)
       (->flonum v)))
 
   (define (get-integer-option name default)
@@ -91,7 +91,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
       (if (eq? v no-value)
 	  default
 	  (begin
-	    (guarantee-integer v name)
+	    (guarantee integer? v name)
 	    v))))
 
   (let ((filename (get-keyword-value options 'filename #f))