summaryrefslogtreecommitdiff
path: root/module/language/tree-il/spec.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/spec.scm')
-rw-r--r--module/language/tree-il/spec.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/module/language/tree-il/spec.scm b/module/language/tree-il/spec.scm
index c47134ed8..b2ebcfcab 100644
--- a/module/language/tree-il/spec.scm
+++ b/module/language/tree-il/spec.scm
@@ -20,6 +20,7 @@
(define-module (language tree-il spec)
#:use-module (system base language)
+ #:use-module (system base pmatch)
#:use-module (language glil)
#:use-module (language tree-il)
#:use-module (language tree-il compile-glil)
@@ -29,7 +30,10 @@
(apply write (unparse-tree-il exp) port))
(define (join exps env)
- (make-sequence #f exps))
+ (pmatch exps
+ (() (make-void #f))
+ ((,x) x)
+ (else (make-sequence #f exps))))
(define-language tree-il
#:title "Tree Intermediate Language"