Commit 6b5cb05f authored by Niels Möller's avatar Niels Möller
Browse files

(process-expr): Handle empty parameter list.

Rev: src/scm/gaba.scm:1.12
parent 3b9fc8de
...@@ -542,7 +542,8 @@ ...@@ -542,7 +542,8 @@
;; (werror "foo\n") ;; (werror "foo\n")
(let ((name (get 'name attributes cadr)) (let ((name (get 'name attributes cadr))
(globals (or (get 'globals attributes cdr) '())) (globals (or (get 'globals attributes cdr) '()))
(params (preprocess-vars #f (get 'params attributes cdr))) (params (preprocess-vars #f
(or (get 'params attributes cdr) '())))
(expr (get 'expr attributes cadr))) (expr (get 'expr attributes cadr)))
(werror "Processing expression ~S\n" name) (werror "Processing expression ~S\n" name)
(let ((translated (translate expr))) (let ((translated (translate expr)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment