From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 17 Nov 2013 19:46:40 +0000 (-0700)
Subject: planetarium: Call test procedures in mit-make.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~422
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9021b778d66a710c64133b2c633af5f7555e3bc0;p=mit-scheme.git

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

diff --git a/src/planetarium/mit-make.scm b/src/planetarium/mit-make.scm
index 8355be96c..698b4d975 100644
--- 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 155435f5b..3ec6233d3 100644
--- 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))