From 33ba61578bf855aff5be7c932b8010cd63eccc22 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 18 Apr 2017 08:31:25 +0000
Subject: [PATCH] Remove unsafe code

---
 scheme/cyclone/transforms.sld | 1 -
 1 file changed, 1 deletion(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 29fdf5f5..2652d58b 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1234,7 +1234,6 @@
 ;; Determine if the given top-level function can be freed from CPS, due
 ;; to it only containing calls to code that itself can be inlined.
 (define (inlinable-top-level-function? expr)
-   (define this-fnc-sym (define->var expr))
    (define (scan expr fail)
      (cond
        ((string? expr) (fail))