From 770df032a6e6c53f2496acfc883c3831e61457e0 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 9 Apr 2013 08:51:36 -0700 Subject: [PATCH] planetarium: Fix snapshot.scm to syntax in correct environment. --- src/planetarium/snapshot.scm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) 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)))) -- 2.25.1