diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-03-17 00:06:13 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-03-17 00:54:00 +0100 |
commit | 3023e7b0c90081f0060cb78a4a534ed7cd77c9bf (patch) | |
tree | 223206990d89f3aee202a75836157e7c88bdfb45 /libguile/dynl.c | |
parent | 087aa6aa312a8d0af51fa9b2f7bfc1332ad97338 (diff) | |
download | guile-3023e7b0c90081f0060cb78a4a534ed7cd77c9bf.tar.gz |
Fix doc string of `dynamic-pointer'.
* libguile/dynl.c (scm_dynamic_pointer): Fix doc string. Reformat body.
Diffstat (limited to 'libguile/dynl.c')
-rw-r--r-- | libguile/dynl.c | 34 |
1 files changed, 18 insertions, 16 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c index 0175c336a..91d4ea135 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -220,8 +220,8 @@ SCM_DEFINE (scm_dynamic_pointer, "dynamic-pointer", 3, 1, 0, "shared object referred to by @var{dobj}. The handle\n" "aliases a C value, and is declared to be of type\n" "@var{type}. Valid types are defined in the\n" - "@code{(system vm ffi)} module.\n\n" - "This facility works by asking the operating system for\n" + "@code{(system foreign)} module.\n\n" + "This facility works by asking the dynamic linker for\n" "the address of a symbol, then assuming that it aliases a\n" "value of a given type. Obviously, the user must be very\n" "careful to ensure that the value actually is of the\n" @@ -237,22 +237,24 @@ SCM_DEFINE (scm_dynamic_pointer, "dynamic-pointer", 3, 1, 0, SCM_VALIDATE_STRING (1, name); t = scm_to_unsigned_integer (type, 0, SCM_FOREIGN_TYPE_LAST); - /*fixme* GC-problem */ SCM_VALIDATE_SMOB (SCM_ARG3, dobj, dynamic_obj); - if (DYNL_HANDLE (dobj) == NULL) { + + if (DYNL_HANDLE (dobj) == NULL) SCM_MISC_ERROR ("Already unlinked: ~S", dobj); - } else { - char *chars; - - scm_dynwind_begin (0); - chars = scm_to_locale_string (name); - scm_dynwind_free (chars); - val = sysdep_dynl_value (chars, DYNL_HANDLE (dobj), FUNC_NAME); - scm_dynwind_end (); - return scm_take_foreign_pointer (t, val, - SCM_UNBNDP (len) ? 0 : scm_to_size_t (len), - NULL); - } + else + { + char *chars; + + scm_dynwind_begin (0); + chars = scm_to_locale_string (name); + scm_dynwind_free (chars); + val = sysdep_dynl_value (chars, DYNL_HANDLE (dobj), FUNC_NAME); + scm_dynwind_end (); + + return scm_take_foreign_pointer (t, val, + SCM_UNBNDP (len) ? 0 : scm_to_size_t (len), + NULL); + } } #undef FUNC_NAME |