File: test-extensions

package info (click to toggle)
guile-2.0 2.0.11%2B1-9
  • links: PTS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 27,612 kB
  • sloc: ansic: 132,286; lisp: 67,206; sh: 4,593; makefile: 1,977; perl: 243; awk: 37
file content (16 lines) | stat: -rwxr-xr-x 399 bytes parent folder | download | duplicates (13) 
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: