diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index f127bae96..22dec8202 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -268,9 +268,7 @@ (maybe-name-value var exp))) (define (build-simple-lambda src req rest vars meta exp) - (make-lambda src - meta - ;; hah, a case in which kwargs would be nice. + (make-lambda src meta (make-lambda-case ;; src req opt rest kw inits vars body else src req #f rest #f '() vars exp #f)))