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 5c1dac97dcdbbd9b7facbfa54d08bcef064de7ec..64c6e56c53e4070c604354fb8220928d5f07d8f7 100644 (file)
--- 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)