From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 4 Nov 2013 00:21:28 +0000 (-0700)
Subject: planetarium/mit-snapshot: Remove redundant draw-tellurion call(!).
X-Git-Tag: mit-scheme-pucked-9.2.12~432
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5fbabc0b6cf5f9cf1a4303b1050f9fc7aadbc37d;p=mit-scheme.git

planetarium/mit-snapshot: Remove redundant draw-tellurion call(!).
---

diff --git a/src/planetarium/mit-snapshot.scm b/src/planetarium/mit-snapshot.scm
index d066dff30..a2709f806 100644
--- a/src/planetarium/mit-snapshot.scm
+++ b/src/planetarium/mit-snapshot.scm
@@ -77,8 +77,6 @@ USA.
 	  (write-string (universal-time->local-time-string time) out)
 	  (newline out)))))
 
-  (draw-tellurion device time (make-latitude/longitude latitude longitude))
-
   (let ((surface (surface-ink-surface (graphics-device/descriptor device))))
     (cairo-surface-write-to-png surface "tellurion.png")
     (cairo-surface-destroy surface)))
\ No newline at end of file