From 8a0986cb0b544dc5cf0823e39a872a5bf790070d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 9 Mar 2021 21:40:18 -0500
Subject: [PATCH] Ignore whitespace when checking for legacy define-c

---
 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 fb1cde2b..4193008e 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -2136,8 +2136,8 @@
       (cond
        ((equal? 'precompiled-lambda (caadr l))
         (cond
-         ((equal? (substring (cadadr l) 0 42)
-                  "(void *data, int argc, closure _, object k")
+         ((equal? (substring (string-replace-all (cadadr l) " " "") 0 35)
+                  (string-replace-all "(void *data, int argc, closure _, object k" " " ""))
            ;; Backwards compatibility for define-c expressions using
            ;; the old style of all C parameters contained directly
            ;; in the function definition. The above code finds them