mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
a44c43368b
* test-suite/standalone/test-extensions: * test-suite/standalone/test-extensions-lib.c: * test-suite/standalone/Makefile.am: Add a test case for the load-extension bug. * meta/gdb-uninstalled-guile.in: Fix the path to include meta/.
14 lines
No EOL
293 B
Scheme
Executable file
14 lines
No EOL
293 B
Scheme
Executable file
#!/bin/sh
|
|
exec guile -q -s "$0" "$@"
|
|
!#
|
|
|
|
(load-extension "libtest-extensions" "libtest_extensions_init")
|
|
(load-extension "libtest-extensions" "libtest_extensions_init2")
|
|
|
|
(or (= init2-count 1)
|
|
(error "init2 called more or less than one time"))
|
|
|
|
|
|
;; Local Variables:
|
|
;; mode: scheme
|
|
;; End: |