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

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

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

)

;; vim: set ai et ts=2 sts=2 sw=2: ;;