planetarium: Remove references to deprecated bindings.

diff --git a/src/planetarium/mit.pkg b/src/planetarium/mit.pkg
index b43c4aa1fe1fe6d9eed5b8ea31d9e2b340e244e5..4a81ab3893977abed92b47dbbb2bc19c9da29376 100644 (file)
--- 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 af696867f34d6a2f0f0ae72530a6872b214d9744..17088b3c529dc6765c16029861ffe17ec3e8d44f 100644 (file)
--- 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))