diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-07-26 19:36:03 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-07-26 19:38:52 +0200 |
commit | 17fc9efecbc9cb0c7e32664dbd0e2c863194cd7f (patch) | |
tree | e03ebbd3ab93aa697aec9abc72444f20edae0a1b /libguile/foreign.h | |
parent | d4149a510e4a87915b625255f4de3301510d810c (diff) | |
download | guile-17fc9efecbc9cb0c7e32664dbd0e2c863194cd7f.tar.gz |
Add `dereference-pointer' to `(system foreign)'.
* libguile/foreign.c (scm_dereference_pointer): New function.
* libguile/foreign.h (scm_dereference_pointer): New declaration.
* module/system/foreign.scm (dereference-pointer): Likewise.
* test-suite/tests/foreign.test
("foreign<->bytevector")["dereference-pointer"]: New test.
Diffstat (limited to 'libguile/foreign.h')
-rw-r--r-- | libguile/foreign.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/foreign.h b/libguile/foreign.h index 4712d761a..af7f1c90d 100644 --- a/libguile/foreign.h +++ b/libguile/foreign.h @@ -69,6 +69,7 @@ SCM_API SCM scm_foreign_set_finalizer_x (SCM foreign, SCM finalizer); SCM_API SCM scm_bytevector_to_foreign (SCM bv, SCM offset, SCM len); SCM_INTERNAL SCM scm_make_pointer (SCM address, SCM finalizer); +SCM_INTERNAL SCM scm_dereference_pointer (SCM pointer); SCM_INTERNAL void scm_i_foreign_print (SCM foreign, SCM port, scm_print_state *pstate); |