#lang racket (define (iup-dynamic-require sym) (dynamic-require 'iup/main sym)) (define (iup-available?) (with-handlers ([exn:fail? (const #f)]) ((iup-dynamic-require 'iup-version)))) (provide (all-defined-out))