gtk, planetarium: Remove references to deprecated bindings.

diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm
index c39a0bc5ffcaea8078f310d1358d082de6342cd6..d503c803e3a4e0f86e4ae8beb0a03636673e196b 100644 (file)
--- a/src/gtk/fix-demo.scm
+++ b/src/gtk/fix-demo.scm
@@ -327,11 +327,10 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
                 (demo-drawing-cursor-inks drawing))
        (%trace2 ";blinked on\n")
        (sleep-current-thread 500)
-       (if (there-exists?
-           (demo-drawing-cursor-inks drawing)
-           (lambda (cursor.widgets)
-             (there-exists? (cdr cursor.widgets)
-                            (lambda (w) (not (gtk-widget-destroyed? w))))))
+       (if (any (lambda (cursor.widgets)
+                 (any (lambda (w) (not (gtk-widget-destroyed? w)))
+                      (cdr cursor.widgets)))
+               (demo-drawing-cursor-inks drawing))
           (loop)
           (%trace ";blinking ended\n"))))))
 \f

diff --git a/src/planetarium/mit-3d.pkg b/src/planetarium/mit-3d.pkg
index ba20a62c52ede87d77bd8e6f56a95fca3c713015..ef8a9dd89166296f63357c59d641225b7aa183be 100644 (file)
--- a/src/planetarium/mit-3d.pkg
+++ b/src/planetarium/mit-3d.pkg
@@ -38,7 +38,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
          burst-string read-line write-string ->namestring
          error:wrong-type-argument real? ->flonum symbol-name
          guarantee-list-of-type->length
-         guarantee-procedure-of-arity guarantee-real
+         guarantee-procedure-of-arity
          universal-time->local-time-string
          define-class define-method initialize-instance
          system-global-environment

diff --git a/src/planetarium/mit.pkg b/src/planetarium/mit.pkg
index 4a81ab3893977abed92b47dbbb2bc19c9da29376..63e6b98a91bf39f9ae3d47863120ca0755c9f514 100644 (file)
--- a/src/planetarium/mit.pkg
+++ b/src/planetarium/mit.pkg
@@ -99,7 +99,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
          ;; Many of these are in usual-integrations/expansion-names
          ;; and thus do not have to be imported, but are listed here
          ;; anyway for completeness (and analysis someday).
-         guarantee-integer integer-divide round->exact truncate->exact
+         guarantee integer-divide round->exact truncate->exact
          ->flonum flo:= flo:< flo:<= flo:+ flo:- flo:* flo:/
          flo:negative? flo:negate flo:truncate
          flo:sin flo:cos flo:atan2 flo:sqrt flo:atan

diff --git a/src/planetarium/tellurion.scm b/src/planetarium/tellurion.scm
index a5fc224147f6d83a458f971e3a635b491ca7b872..a8beb442ea080024331af28f1edd8a4e1e057098 100644 (file)
--- a/src/planetarium/tellurion.scm
+++ b/src/planetarium/tellurion.scm
@@ -40,7 +40,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
             (queue! 'time-to (->time (car args))))
            ((eq? keyword 'HOUR-TO)
             (let ((hour (car args)))
-              (guarantee-integer hour 'hour-to)
+              (guarantee integer? hour 'hour-to)
               (if (or (< hour 0) (< 23 hour))
                   (error "Invalid hour:" hour))
               (queue! 'hour-to hour)))