From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 9 Apr 2013 15:51:36 +0000 (-0700)
Subject: planetarium: Fix snapshot.scm to syntax in correct environment.
X-Git-Tag: mit-scheme-pucked-9.2.12~513
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=770df032a6e6c53f2496acfc883c3831e61457e0;p=mit-scheme.git

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

diff --git a/src/planetarium/snapshot.scm b/src/planetarium/snapshot.scm
index c5cee1845..f1f2b8ba5 100644
--- 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))))