File iup/iup-dynamic.scm artifact e325eaa3ff part of check-in 4b31034008


;; -*- mode: Scheme; tab-width: 2; -*- ;;

(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]))

)