remove unnecessary assignment

petermichaux · Aug 1, 2011 · cacd7b2 · cacd7b2
1 parent 5caf6f6
commit cacd7b2
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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");
             }
         }