diff options
author | Daniel Llorens <lloda@sarc.name> | 2023-03-17 21:03:33 +0100 |
---|---|---|
committer | Daniel Llorens <lloda@sarc.name> | 2023-03-17 21:17:10 +0100 |
commit | f0df1ed0fdca7a63cffda5e53c968e814b7b06ec (patch) | |
tree | 086985028f5b194c102b0f46fccdcbf536b62075 /module/language/tree-il/peval.scm | |
parent | 3b47f87618047ebb8812788c64a44877a4f2e0dd (diff) | |
download | guile-f0df1ed0fdca7a63cffda5e53c968e814b7b06ec.tar.gz |
Fix no-clause case-lambda in peval
This is checked by optargs.test, which 3b47f87618047ebb8812788c64a44877a4f2e0dd
broke.
* module/language/tree-il/peval.scm (peval): Account for no clause (= no body)
case-lambda.
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)) |