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

Author: jakebolewski

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)