blob: ec320113b874708c7154677b7b37001b419535dd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/bin/sh
exec guile -q -s "$0" "$@"
!#
(load-extension (string-append (getenv "builddir") "/libtest-extensions")
"libtest_extensions_init")
(load-extension (string-append (getenv "builddir") "/libtest-extensions")
"libtest_extensions_init2")
(or (= init2-count 1)
(error "init2 called more or less than one time"))
;; Local Variables:
;; mode: scheme
;; End:
|