diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-09-06 22:24:44 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-09-06 22:24:44 +0200 |
commit | 2ee073587a28161dfb6b95f250be2d8a5df26cae (patch) | |
tree | 6e165113473328fdb90624301118652d60fbbba2 /test-suite/tests/foreign.test | |
parent | 7884975a890a461fb62178eeb3dfbb8b30b28ba2 (diff) | |
download | guile-2ee073587a28161dfb6b95f250be2d8a5df26cae.tar.gz |
Rename `make-foreign-function' to `pointer->procedure'.
* libguile/foreign.c (scm_make_foreign_function): Rename to...
(scm_pointer_to_procedure): ... this.
* libguile/foreign.h: Adjust accordingly.
* module/system/foreign.scm: Likewise.
* test-suite/standalone/test-ffi: Likewise.
* test-suite/tests/foreign.test: Likewise.
* doc/ref/api-foreign.texi: Likewise.
Diffstat (limited to 'test-suite/tests/foreign.test')
-rw-r--r-- | test-suite/tests/foreign.test | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/test-suite/tests/foreign.test b/test-suite/tests/foreign.test index a791602e5..274a06d8c 100644 --- a/test-suite/tests/foreign.test +++ b/test-suite/tests/foreign.test @@ -96,9 +96,9 @@ (define qsort ;; Bindings for libc's `qsort' function. - (make-foreign-function void - (dynamic-func "qsort" (dynamic-link)) - (list '* size_t size_t '*))) + (pointer->procedure void + (dynamic-func "qsort" (dynamic-link)) + (list '* size_t size_t '*))) (define (dereference-pointer-to-byte ptr) (let ((b (pointer->bytevector ptr 1))) @@ -153,10 +153,9 @@ (+ x y z 0.0))) (ret double) (args (list float int16 double)) - (proc* (make-foreign-function - ret - (procedure->pointer ret proc args) - args)) + (proc* (pointer->procedure ret + (procedure->pointer ret proc args) + args)) (arg1 (map (cut / <> 2.0) (iota 123))) (arg2 (iota 123 32000)) (arg3 (map (cut / <> 4.0) (iota 123 100 4)))) |