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