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, 4 insertions, 2 deletions
diff --git a/module/language/tree-il/spec.scm b/module/language/tree-il/spec.scm
index 38e6d311c..1c6611b4e 100644
--- a/module/language/tree-il/spec.scm
+++ b/module/language/tree-il/spec.scm
@@ -1,6 +1,6 @@
;;; Tree Intermediate Language
-;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -33,7 +33,9 @@
(pmatch exps
(() (make-void #f))
((,x) x)
- (else (make-sequence #f exps))))
+ ((,x . ,rest)
+ (make-seq #f x (join rest env)))
+ (else (error "what!" x rest env))))
(define-language tree-il
#:title "Tree Intermediate Language"