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