From 2afd1b48b7136c03b82fcc701b0a451ad8969308 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 20 Jan 2021 22:51:54 -0500
Subject: [PATCH] Use new signature for CPS prototypes

---
 scheme/cyclone/cgen.sld | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 3fffa9a0..c9126e6e 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -2009,8 +2009,8 @@
         (else
          (emit*
            "static void __lambda_" 
-           (number->string (car l)) "(void *data, int argc, "
-           (cdadr l)
+           (number->string (car l)) 
+           "(void *data, object clo, object k, int argc, object *args"
            ") ;"))))
      lambdas)