diff options
Diffstat (limited to 'module/language/elisp/compile-tree-il.scm')
-rw-r--r-- | module/language/elisp/compile-tree-il.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index caa0a30c3..5c9c05f64 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -452,7 +452,12 @@ (lambda () (make-lambda loc '() (make-lambda-case - #f required #f rest-name #f '() (append required-sym (list rest-sym)) + #f required #f + (if have-real-rest rest-name #f) + #f '() + (if have-real-rest + (append required-sym (list rest-sym)) + required-sym) #f (let* ((init-req (map (lambda (name-sym) (make-lexical-ref loc (car name-sym) |