(readevalloop): Yet another int/Lisp_Object mixup (YAILOM).

c1ed1b20 · Stefan Monnier · 93eece98 · c1ed1b20
Commit c1ed1b20 authored Nov 01, 2005 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

src/lread.c src/lread.c +2 -1

No files found.
--- a/src/lread.c
+++ b/src/lread.c
@@ -1416,7 +1416,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
    }

  build_load_history (sourcename, 
-		      stream || (start == BEG && end == Z));
+		      stream || (INTEGERP (start) && INTEGERP (end)
+				 && XINT (start) == BEG && XINT (end) == Z));

  UNGCPRO;