summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax-pp.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/psyntax-pp.scm')
-rw-r--r--module/ice-9/psyntax-pp.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index c235d925e..9270a6947 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -107,11 +107,11 @@
#{name 838}#
#{args 839}#)))
(#{make-sequence 229}#
- (lambda (#{src 843}# #{exps 844}#)
+ (lambda (#{src 843}# head tail)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#{src 843}#
- #{exps 844}#)))
+ head tail)))
(#{make-lambda 231}#
(lambda (#{src 847}# #{meta 848}# #{body 849}#)
(make-struct/no-tail
@@ -445,8 +445,8 @@
(if (null? (cdr #{exps 1099}#))
(car #{exps 1099}#)
(#{make-sequence 229}#
- #{src 1098}#
- #{exps 1099}#))))
+ #f (car #{exps 1099}#)
+ (#{build-sequence 297}# #f (cdr #{exps 1099}#))))))
(#{build-let 299}#
(lambda (#{src 1102}#
#{ids 1103}#