From 932d98129a9e473fbc1a9797226006e8b2b851bd Mon Sep 17 00:00:00 2001
From: Jeff Bezanson <bezanson@post.harvard.edu>
Date: Mon, 20 Feb 2012 22:53:29 -0500
Subject: [PATCH] fixing #427 need syntax error for "local ()" etc.

---
 src/julia-syntax.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/julia-syntax.scm b/src/julia-syntax.scm
index 1b4dcc959ee6c..7910081b0d40d 100644
--- 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) '=)))