better syntax errors for break / continue statements, closes #9358

JuliaLang · Jun 3, 2015 · b96d8cc · b96d8cc
1 parent a0e503e
commit b96d8cc
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/julia-parser.scm b/src/julia-parser.scm
@@ -1225,7 +1225,14 @@
                          (if (or (eqv? t #\newline) (closing-token? t))
                              (list 'return '(null))
                              (list 'return (parse-eq s)))))
-    ((break continue)  (list word))
+    ((break continue)
+     (let ((t (peek-token s)))
+       (if (or (eof-object? t)
+	       (and (eq? t 'end) (not end-symbol))
+	       (memv t '(#\newline #\; #\) :)))
+	 (list word)
+	 (error (string "unexpected \"" t "\" after " word)))))
+
     ((const)
      (let ((assgn (parse-eq s)))
        (if (not (and (pair? assgn)