summaryrefslogtreecommitdiff
path: root/module/language/scheme/decompile-tree-il.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/scheme/decompile-tree-il.scm')
-rw-r--r--module/language/scheme/decompile-tree-il.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/scheme/decompile-tree-il.scm b/module/language/scheme/decompile-tree-il.scm
index 2decd9749..99edee44c 100644
--- a/module/language/scheme/decompile-tree-il.scm
+++ b/module/language/scheme/decompile-tree-il.scm
@@ -690,7 +690,7 @@
(primitive 'begin) (recurse head) (recurse tail))
((<lambda> body)
- (if body (recurse body)))
+ (if body (recurse body) (primitive 'case-lambda)))
((<lambda-case> req opt rest kw inits gensyms body alternate)
(primitive 'lambda)