Artifact
7d4af748ec5f98139f8fd6d466c9847720a91db0:
0000: 28 6d 6f 64 75 6c 65 20 69 75 70 2d 64 79 6e 61 (module iup-dyna
0010: 6d 69 63 0a 09 28 69 75 70 2d 61 76 61 69 6c 61 mic..(iup-availa
0020: 62 6c 65 3f 20 69 75 70 2d 64 79 6e 61 6d 69 63 ble? iup-dynamic
0030: 2d 72 65 71 75 69 72 65 29 0a 09 28 69 6d 70 6f -require)..(impo
0040: 72 74 20 73 63 68 65 6d 65 20 63 68 69 63 6b 65 rt scheme chicke
0050: 6e 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 75 70 n)..(define (iup
0060: 2d 64 79 6e 61 6d 69 63 2d 72 65 71 75 69 72 65 -dynamic-require
0070: 20 73 79 6d 29 0a 09 28 65 76 61 6c 20 60 28 62 sym)..(eval `(b
0080: 65 67 69 6e 20 28 72 65 71 75 69 72 65 2d 65 78 egin (require-ex
0090: 74 65 6e 73 69 6f 6e 20 69 75 70 29 20 2c 73 79 tension iup) ,sy
00a0: 6d 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 69 m)))..(define (i
00b0: 75 70 2d 61 76 61 69 6c 61 62 6c 65 3f 29 0a 09 up-available?)..
00c0: 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 (condition-case
00d0: 28 28 69 75 70 2d 64 79 6e 61 6d 69 63 2d 72 65 ((iup-dynamic-re
00e0: 71 75 69 72 65 20 27 69 75 70 2d 76 65 72 73 69 quire 'iup-versi
00f0: 6f 6e 29 29 0a 09 09 5b 28 65 78 6e 29 20 23 66 on))...[(exn) #f
0100: 5d 29 29 0a 0a 29 0a ]))..).