tests/dynamic-var.scm.in

   1 (set! %load-compiled-path (cons "@abs_top_builddir@/lisp" %load-compiled-path))
   2 (primitive-load "@abs_builddir@/testing-common.scm")
   3 (use-modules ((gnu bash) #:prefix bash:))
   4
   5 (bash:bind-dynamic-variable 'MAGIC
   6  (lambda ()
   7    (format #f "MAGIC-~a" (random 24))))
   8
   9
  10 (bash:bind-dynamic-variable
  11  'CRASH
  12  (lambda ()
  13    (error 'foo)))
  14
  15 (bash:bind-dynamic-variable
  16  'TYPEMISMATCH
  17  (lambda ()
  18    (list 'type-mismatch 23)))