From 9991dd14ae0a534ad8c280ebfa4eb51c1453d932 Mon Sep 17 00:00:00 2001
From: dyb <dyb@scheme.com>
Date: Wed, 28 Mar 2018 08:56:54 -0700
Subject: [PATCH] fixed typo reported by github:@guenchi

original commit: 27e2a5c2d076e03ac6a70da06250a393f2253ea1
---
 csug/foreign.stex | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/csug/foreign.stex b/csug/foreign.stex
index f0dc71dd2b..1e6ff32651 100644
--- a/csug/foreign.stex
+++ b/csug/foreign.stex
@@ -1067,8 +1067,8 @@ void cb_init(void) {
        callbacks[i] = (CB)0;
 }
 
-void register_callback(char c, int cb) {
-    callbacks[c] = (CB)cb;
+void register_callback(char c, CB cb) {
+    callbacks[c] = cb;
 }
 
 void event_loop(void) {
@@ -1090,7 +1090,7 @@ Interfaces to these functions may be defined in Scheme as follows.
 (define cb-init
   (foreign-procedure "cb_init" () void))
 (define register-callback
-  (foreign-procedure "register_callback" (char int) void))
+  (foreign-procedure "register_callback" (char void*) void))
 (define event-loop
   (foreign-procedure "event_loop" () void))
 \endschemedisplay