Skip to content

Instantly share code, notes, and snippets.

@nkoguro
Created September 13, 2014 07:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nkoguro/7a0508caa2dae1c0959c to your computer and use it in GitHub Desktop.
Save nkoguro/7a0508caa2dae1c0959c to your computer and use it in GitHub Desktop.
Fix the mishandling of the boxer and unboxer in define-cptr
diff --git a/lib/gauche/cgen/stub.scm b/lib/gauche/cgen/stub.scm
index 1541e33..cb1a68e 100644
--- a/lib/gauche/cgen/stub.scm
+++ b/lib/gauche/cgen/stub.scm
@@ -1593,8 +1593,8 @@
(make-cgen-type scm-name c-type
(x->string scm-name) ; description
(x->string c-pred)
- (x->string c-boxer)
- (x->string c-unboxer))
+ (x->string c-unboxer)
+ (x->string c-boxer))
(cgen-add! fptr)))]
[_ (error <cgen-stub-error> "invalid define-cptr clause for" scm-name)])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment