From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 5 Nov 2013 16:07:49 +0000 (-0700)
Subject: planetarium/google-earth-requests: Do not truncate logged data.
X-Git-Tag: mit-scheme-pucked-9.2.12~427
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f276693fd66253362c034aa9f02870fe3370a3b9;p=mit-scheme.git

planetarium/google-earth-requests: Do not truncate logged data.
---

diff --git a/src/planetarium/google-earth-requests.scm b/src/planetarium/google-earth-requests.scm
index 8f0c91326..ce1fc4a0e 100644
--- a/src/planetarium/google-earth-requests.scm
+++ b/src/planetarium/google-earth-requests.scm
@@ -183,11 +183,7 @@ USA.
       (let* ((lines
 	      (call-with-input-file log-file read-lines))
 	     (l (length lines)))
-	(map parse-logged-elevation
-	     (list-tail lines
-			(if (< l 2502)
-			    0
-			    (- l 2502)))))
+	(map parse-logged-elevation lines))
       '()))
 
 (define (parse-logged-elevation line)