From dcf51c86a6614ac29f6a61be3660916a414626e9 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 18 Mar 2021 13:22:44 -0400
Subject: [PATCH] Avoid warning from C compiler

---
 scheme/read.sld | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index aaff4892..67d65bf9 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -116,8 +116,11 @@
   " Cyc_io_read_token(data, k, port);")
 
 (define-c read-error
-  "(void *data, int argc, closure _, object k, object port, object filename, object msg)"
-  " char buf[1024];
+  "(void *data, object _, int argc, object *args)"
+  " object port = args[1];
+    object filename = args[2];
+    object msg = args[3];
+    char buf[1024];
     port_type *p;
     Cyc_check_port(data, port);
     Cyc_check_str(data, msg);