From e4974c506a388ef587dcda14fdea10d57a9df04b Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 26 Feb 2017 01:37:38 -0700 Subject: [PATCH] planetarium: Remove references to deprecated bindings. --- src/planetarium/mit.pkg | 1 + src/planetarium/terrain.scm | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) 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)) -- 2.25.1