From 61d265c512b09f9f39c42dd545d1a01d80687968 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 1 Nov 2018 13:09:42 -0400
Subject: [PATCH] Splice in lambda body of cyc-seq

---
 scheme/cyclone/cps-optimizations.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 3ebe83a3..086dd52b 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1094,7 +1094,7 @@
              (opt:inline-prims 
                `(Cyc-seq 
                   ,@(cdr exp)
-                  ,(ast:lambda-body (car exp))) 
+                  ,@(ast:lambda-body (car exp))) 
                scope-sym 
                refs))
             (else