From 7794f3edce35f59a34628a4427b56516efd1cb9b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 15 May 2017 11:21:13 +0000
Subject: [PATCH] Ensure list of formals before performing list ops

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

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index b42c054b..473ccbff 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1217,6 +1217,7 @@
         (cond
          ;; TODO: what if fnc has no cont? do we need to handle differently?
          ((and (ast:lambda? fnc)
+               (list? formals)
                (= (length args) (length formals)))
           ;(trace:error `(JAE DEBUG beta expand ,exp))
           (beta-expansion exp fnc) ; exp