From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 25 Jul 2019 22:08:34 +0000 (-0500)
Subject: planetarium: fix google elevations job
X-Git-Tag: mit-scheme-pucked-10.1.12~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6d8710442ed2b1c9777ede5235d0f5b6c53670e2;p=mit-scheme.git

planetarium: fix google elevations job

Thanks to Dave <dgray@iesl.forth.gr>.
---

diff --git a/src/planetarium/planetarium.texi b/src/planetarium/planetarium.texi
index 5c1dac97d..64c6e56c5 100644
--- a/src/planetarium/planetarium.texi
+++ b/src/planetarium/planetarium.texi
@@ -173,6 +173,11 @@ Bay, California.
   mit-scheme-pucked --batch-mode <<\EOF
   (begin
     (load-option 'planetarium)
+    (define env (->environment '(planetarium google-earth)))
+    (define request-google-elevations
+    	    (access request-google-elevations env))
+    (define make-latitudes/longitudes
+    	    (access make-latitudes/longitudes env))
     (request-google-elevations "monterey.txt"
                                (make-latitudes/longitudes
                                 (iota 101 36. .01)