scsh-conservatory
/
scsh-ldap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* ffi-tools/ffi-tools.c (call_scheme_boolean_p): use 

S48_SHARED_BINDING_REF
(call_scheme_integer_p): ditto
(length_scheme_list): ditto
This commit is contained in:
eknauel 2004-02-11 16:22:43 +00:00
parent 22a1e6919d
commit 1ba223f6cc
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ffi-tools/ffi-tools.c
View File

@ -21,7 +21,7 @@ int length_scheme_list(s48_value list)
S48_GC_PROTECT_2(list, res); S48_GC_PROTECT_2(list, res);
FFIT_CHECK_LIST(list); FFIT_CHECK_LIST(list);
res = s48_call_scheme(scheme_list_length_function, 1, list); res = s48_call_scheme(S48_SHARED_BINDING_REF(scheme_list_length_function), 1, list);
S48_GC_UNPROTECT(); S48_GC_UNPROTECT();
return s48_extract_integer(res); return s48_extract_integer(res);
} }
@ -32,7 +32,7 @@ int call_scheme_boolean_p(s48_value v)
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(v, res); S48_GC_PROTECT_2(v, res);
res = s48_call_scheme(scheme_boolean_p_function, 1, v); res = s48_call_scheme(S48_SHARED_BINDING_REF(scheme_boolean_p_function), 1, v);
S48_GC_UNPROTECT(); S48_GC_UNPROTECT();
return S48_TRUE_P(res); return S48_TRUE_P(res);
} }
@ -43,7 +43,7 @@ int call_scheme_integer_p(s48_value v)
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2(v, res); S48_GC_PROTECT_2(v, res);
res = s48_call_scheme(scheme_integer_p_function, 1, v); res = s48_call_scheme(S48_SHARED_BINDING_REF(scheme_integer_p_function), 1, v);
S48_GC_UNPROTECT(); S48_GC_UNPROTECT();
return S48_TRUE_P(res); return S48_TRUE_P(res);
} }
@ -94,3 +94,4 @@ void ffit_init_hook(void)
scheme_integer_p_function = s48_get_imported_binding("integer?"); scheme_integer_p_function = s48_get_imported_binding("integer?");
scheme_boolean_p_function = s48_get_imported_binding("boolean?"); scheme_boolean_p_function = s48_get_imported_binding("boolean?");
} }