From cacd7b2838c67338d14e9f690c992a8a48e6856e Mon Sep 17 00:00:00 2001
From: Peter Michaux <petermichaux@gmail.com>
Date: Mon, 1 Aug 2011 08:42:02 -0700
Subject: [PATCH] remove unnecessary assignment

---
 read.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/read.c b/read.c
index bfc0b48..8353282 100644
--- a/read.c
+++ b/read.c
@@ -77,8 +77,7 @@ static scm_object scm_read_number(FILE *in, int c) {
          * stream we will not know if an error has occurred.
          */
         if (c != EOF) {
-            c = ungetc(c, in);
-            if (c == EOF) {
+            if (ungetc(c, in) == EOF) {
                 scm_fatal("scm_read_number: ungetc error");
             }
         }