From 544be96f65d41c916a6b04222689cdf250bd2686 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 9 Jul 2016 02:45:34 -0400
Subject: [PATCH] Issue #83 - Do not allow application of a const

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

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 636d9b59..76d8fede 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1364,6 +1364,10 @@
 ;           (cps-seq (ast-subx ast) cont-ast))
 
           ((app? ast)
+           ;; Syntax check the function
+           (if (const? (car ast))
+               (error "Call of non-procedure: " ast))
+           ;; Do conversion
            (let ((fn (app->fun ast)))
              (cond
               ((lambda? fn)