From 67baf4d5ee8c95ec4b8767fef1411568f6dbe7d6 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 13 Jan 2020 13:03:29 -0500
Subject: [PATCH] Issue #240 - Clean up error message

---
 scheme/cyclone/cps-optimizations.sld | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index ff794546..34f27cb0 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -2434,14 +2434,14 @@
              (argc (- (length ast) 1)) )
      (when (not (= argc expected-argc))
        (compiler-msg "Compiler Error: ")
-       (compiler-msg ast)
+       (compiler-msg (cons (car ast) (cddr ast)))
        (compiler-error 
         "Expected "
-        (number->string expected-argc)
+        (number->string (- expected-argc 1)) ;; One less for continuation
         " arguments to "
         (symbol->string (car ast))
         " but received "
-        (number->string argc))) ))
+        (number->string (- argc 1)))) )) ;; One less for cont
 
 ;; Declare a compiler error and quit
 ;; Preferable to (error) since a stack trace is meaningless here.