planetarium: Fix snapshot.scm to syntax in correct environment.

diff --git a/src/planetarium/snapshot.scm b/src/planetarium/snapshot.scm
index c5cee1845c5562345f7c89db088d53138a624b15..f1f2b8ba5bb94a88986d0fe6b11894f607babc84 100644 (file)
--- a/src/planetarium/snapshot.scm
+++ b/src/planetarium/snapshot.scm
@@ -25,12 +25,7 @@ USA.
 
 (load-option 'gtk #t)
 
-(let ((time (get-universal-time))
-      (latitude 33.3)
-      (longitude -111.9)
-
-      (device (gtk-graphics/make 400 400))
-      (here (the-environment))
+(let ((here (the-environment))
       (gtk (->environment '(gtk))))
   (for-each (lambda (name) (environment-link-name here gtk name))
            '(surface-ink-surface
@@ -38,8 +33,16 @@ USA.
   (with-working-directory-pathname
       (directory-pathname (current-load-pathname))
     (lambda ()
-      (for-each load '("geometry" "matrices" "time" "solar" "earth"
-                      "mit-scheme-cil" "tellurian" "mit-scheme-gtk"))))
+      (for-each (lambda (file) (compile-file file '() here) (load file))
+               '("mit-scheme-syntax"
+                 "geometry" "matrices" "time" "solar" "earth"
+                 "mit-scheme-cil" "tellurian" "mit-scheme-gtk")))))
+
+(let ((time (get-universal-time))
+      (latitude 33.3)
+      (longitude -111.9)
+
+      (device (gtk-graphics/make 400 400)))
   (graphics-set-coordinate-limits device -1.1 -1.1 1.1 1.1)
   (draw-tellurian device time (make-latitude/longitude latitude longitude))
   (let ((surface (surface-ink-surface (graphics-device/descriptor device))))