λgitsite

Fix Scintilla send-message FFI arity

ober

e8fdf540f29c47ca087a3677844e639af311b15b

diff --git a/lib/jerboa-scintilla/ffi.sls b/lib/jerboa-scintilla/ffi.sls
index 2f82576..7a09f04 100644
--- a/lib/jerboa-scintilla/ffi.sls
+++ b/lib/jerboa-scintilla/ffi.sls
@@ -72,7 +72,7 @@
   (def ffi-scintilla-send-message
        (if (foreign-entry? "jerboa_scintilla_send_message")
            (foreign-procedure "jerboa_scintilla_send_message"
-             (void* unsigned int unsigned-long long)
+             (void* unsigned-int unsigned-long long)
              long)
            (lambda _
              (error 'chez-scintilla
diff --git a/src/jerboa-scintilla/ffi.ss b/src/jerboa-scintilla/ffi.ss
index 8a3461e..b6e900e 100644
--- a/src/jerboa-scintilla/ffi.ss
+++ b/src/jerboa-scintilla/ffi.ss
@@ -121,7 +121,7 @@
   (def ffi-scintilla-send-message
     (if (foreign-entry? "jerboa_scintilla_send_message")
         (foreign-procedure "jerboa_scintilla_send_message"
-      (void* unsigned int unsigned-long long) long)
+      (void* unsigned-int unsigned-long long) long)
         (lambda _ (error 'chez-scintilla "termbox shim not loaded" "jerboa_scintilla_send_message"))))
 
   (def ffi-scintilla-send-message-string
@@ -384,4 +384,3 @@
       (int int unsigned-32 unsigned-32 string) void)
         (lambda _ (error 'chez-scintilla "termbox shim not loaded" "jerboa_tb_print_string"))))
 
-