diff options
Diffstat (limited to 'module/language/tree-il/peval.scm')
-rw-r--r-- | module/language/tree-il/peval.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/language/tree-il/peval.scm b/module/language/tree-il/peval.scm index 7c05e9a2e..36a3033b0 100644 --- a/module/language/tree-il/peval.scm +++ b/module/language/tree-il/peval.scm @@ -1671,6 +1671,7 @@ top-level bindings from ENV and return the resulting expression." (($ <lambda> src-proc meta orig-body) ;; If there are multiple cases and one matches nargs, omit all the others. (or (and + orig-body (lambda-case-alternate orig-body) (let ((nargs (length orig-args))) (let loop ((body orig-body)) |