Examples/test-suite/guile/integers_runme.scm

   1 ;; The SWIG modules have "passive" Linkage, i.e., they don't generate
   2 ;; Guile modules (namespaces) but simply put all the bindings into the
   3 ;; current module.  That's enough for such a simple test.
   4 (dynamic-call "scm_init_integers_module" (dynamic-link "./libintegers.so"))
   5
   6 (define-macro (throws-exception? form)
   7   `(catch #t
   8      (lambda () ,form #f)
   9      (lambda args #t)))
  10
  11 (load "../schemerunme/integers.scm")