projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
72a590f
)
planetarium: Fix request-elevations in google-earth.scm.
author
Matt Birkholz
<puck@birchwood-abbey.net>
Wed, 14 May 2014 18:03:45 +0000
(11:03 -0700)
committer
Matt Birkholz
<puck@birchwood-abbey.net>
Wed, 14 May 2014 18:03:45 +0000
(11:03 -0700)
Remove buggy assert; `locations' is a list, not a number.
src/planetarium/google-earth.scm
patch
|
blob
|
history
diff --git
a/src/planetarium/google-earth.scm
b/src/planetarium/google-earth.scm
index dc3eb853cb0c86a2857ec48004542683ede8341f..940ed1f4ec6c873b7506c11af60e3ceba1cb9eae 100644
(file)
--- 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/"