planetarium: Call test procedures in mit-make.scm.

diff --git a/src/planetarium/mit-make.scm b/src/planetarium/mit-make.scm
index 8355be96c3124fb4eda62e19b915a3263beb8461..698b4d97581056c931ac5ba428a002d8ebf4de40 100644 (file)
--- a/src/planetarium/mit-make.scm
+++ b/src/planetarium/mit-make.scm
@@ -31,7 +31,11 @@ USA.
     (directory-pathname (current-load-pathname))
   (lambda ()
     (load-package-set "mit")
-    ((access test-angular-separation (->environment '(planetarium))))
+    (let ((env (->environment '(planetarium))))
+      ((access test-julian-day env))
+      ((access test-greenwich-mean-sidereal-time env))
+      ((access test-solar-latitude/longitude env))
+      ((access test-angular-separation env)))
     (load "mit-link")
     (if (not (warn-errors? (lambda () (load-option 'GL))))
        (begin

diff --git a/src/planetarium/tellurion.scm b/src/planetarium/tellurion.scm
index 155435f5bb5497826747e9ddc85ee03d1847074a..3ec6233d3117ef8507f4c1fb7db4ffeaed13aed3 100644 (file)
--- a/src/planetarium/tellurion.scm
+++ b/src/planetarium/tellurion.scm
@@ -22,9 +22,6 @@ USA.
 |#
 
 (define (make-tellurion)
-  (test-julian-day)
-  (test-greenwich-mean-sidereal-time)
-  (test-solar-latitude/longitude)
   (let ((queue (make-thread-queue)))
     (define (queue! command . args)
       (thread-queue/queue! queue (cons command args))