Skip to content

Commit

Permalink
fixing #427
Browse files Browse the repository at this point in the history
need syntax error for "local ()" etc.
  • Loading branch information
JeffBezanson committed Feb 21, 2012
1 parent f002a96 commit 932d981
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion src/julia-syntax.scm
Original file line number Diff line number Diff line change
Expand Up @@ -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) '=)))
Expand Down

0 comments on commit 932d981

Please sign in to comment.