From e8834738859ea4ab7472483c90f46d2251be6b2f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 30 Oct 2018 13:20:11 -0400
Subject: [PATCH] Use pre-computed sexp

---
 scheme/cyclone/cps-optimizations.sld | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index e0be5e00..8b7cb9fe 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1726,9 +1726,8 @@
      (let ((fn (car exp))
            (args (map cc (cdr exp))))
        (cond
-         ((tagged-list? 'Cyc-seq exp)
-          (cons 'Cyc-seq
-                (map cc (cdr exp))))
+         ((equal? 'Cyc-seq fn)
+          `(Cyc-seq ,@args))
          ((ast:lambda? fn)
           (cond
             ;; If the lambda argument is not used, flag so the C code is