diff --git a/guile-rs-sys/wrapper.c b/guile-rs-sys/wrapper.c
index a7c953e..33a2b24 100644
--- a/guile-rs-sys/wrapper.c
+++ b/guile-rs-sys/wrapper.c
@@ -49,6 +49,9 @@ SCM gu_scm_list_n(SCM* elts) {
     return answer;
 }
 
+int gu_SCM_IS_A_P(SCM val, SCM type) {
+    return SCM_IS_A_P(val, type);
+}
 
 void test_func() {
     return;