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 @@
;; (werror "foo\n")
(let ((name (get 'name attributes cadr))
(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)))
(werror "Processing expression ~S\n" name)
(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