From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 14 May 2014 18:03:45 +0000 (-0700)
Subject: planetarium: Fix request-elevations in google-earth.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~408
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3fbf7072c33845674f8c7fc8665a6315f33a9d06;p=mit-scheme.git

planetarium: Fix request-elevations in google-earth.scm.

Remove buggy assert; `locations' is a list, not a number.
---

diff --git a/src/planetarium/google-earth.scm b/src/planetarium/google-earth.scm
index dc3eb853c..940ed1f4e 100644
--- a/src/planetarium/google-earth.scm
+++ b/src/planetarium/google-earth.scm
@@ -84,8 +84,6 @@ USA.
 	  (loop rest)))))
 
 (define (request-elevations locations)
-  (if (not (< locations 9))
-      (error "Too many locations for request:" locations))
   (let ((time (get-universal-time))
 	(url (string-append
 	      "http://maps.googleapis.com/maps/api/elevation/"