fixing JuliaLang#427

need syntax error for "local ()" etc.
MLnick · Feb 21, 2012 · 932d981 · 932d981
1 parent f002a96
commit 932d981
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/julia-syntax.scm b/src/julia-syntax.scm
@@ -543,8 +543,10 @@
 		 (loop (cdr b)
 		       (cons (decl-var x) vars)
 		       (cons x assigns)))
+		((symbol? x)
+		 (loop (cdr b) (cons x vars) assigns))
 		(else
-		 (loop (cdr b) (cons x vars) assigns)))))))
+		 (error (string "invalid syntax in " what " declaration"))))))))
 
 (define (make-assignment l r) `(= ,l ,r))
 (define (assignment? e) (and (pair? e) (eq? (car e) '=)))