Artifact e325eaa3ffd4b3a1b81b7b00f9b341d972f09343:

• File iup/iup-dynamic.scm — part of check-in [b465d05d14] at 2013-05-11 16:59:59 on branch trunk — Updated iup and added canvas-draw (user: matt, size: 306) [annotate] [blame] [check-ins using]

;; -*- 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]))

)