From 9021b778d66a710c64133b2c633af5f7555e3bc0 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 17 Nov 2013 12:46:40 -0700 Subject: [PATCH] planetarium: Call test procedures in mit-make.scm. --- src/planetarium/mit-make.scm | 6 +++++- src/planetarium/tellurion.scm | 3 --- 2 files changed, 5 insertions(+), 4 deletions(-) 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)) -- 2.25.1