fix #3896

JuliaLang · Jul 31, 2013 · b6b4f02 · b6b4f02
1 parent 41bceff
commit b6b4f02
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/jlfrontend.scm b/src/jlfrontend.scm
@@ -186,11 +186,11 @@
 			  (julia-parse current-token-stream)))))
     (if (eof-object? e)
 	e
-	(cons (+ (input-port-line (ts:port current-token-stream))
-		 (if (eqv? (peek-token current-token-stream) #\newline)
-		     -1 0))
-	      (parser-wrap
-	       (lambda ()
+	(parser-wrap
+	 (lambda ()
+	   (cons (+ (input-port-line (ts:port current-token-stream))
+		    (if (eqv? (peek-token current-token-stream) #\newline)
+			-1 0))
 		 (if (and (pair? e) (or (eq? (car e) 'error)
 					(eq? (car e) 'continue)))
 		     e