File iup/iup-dynamic.scm artifact 7d4af748ec part of check-in 1e08e6c5f5

(module iup-dynamic
	(iup-available? iup-dynamic-require)
	(import scheme chicken)

(define (iup-dynamic-require sym)
	(eval `(begin (require-extension iup) ,sym)))

(define (iup-available?)
	(condition-case ((iup-dynamic-require 'iup-version))
		[(exn) #f]))

)