Artifact
e325eaa3ffd4b3a1b81b7b00f9b341d972f09343:
0000: 3b 3b 20 2d 2a 2d 20 6d 6f 64 65 3a 20 53 63 68 ;; -*- mode: Sch
0010: 65 6d 65 3b 20 74 61 62 2d 77 69 64 74 68 3a 20 eme; tab-width:
0020: 32 3b 20 2d 2a 2d 20 3b 3b 0a 0a 28 6d 6f 64 75 2; -*- ;;..(modu
0030: 6c 65 20 69 75 70 2d 64 79 6e 61 6d 69 63 0a 09 le iup-dynamic..
0040: 28 69 75 70 2d 61 76 61 69 6c 61 62 6c 65 3f 20 (iup-available?
0050: 69 75 70 2d 64 79 6e 61 6d 69 63 2d 72 65 71 75 iup-dynamic-requ
0060: 69 72 65 29 0a 09 28 69 6d 70 6f 72 74 20 73 63 ire)..(import sc
0070: 68 65 6d 65 20 63 68 69 63 6b 65 6e 29 0a 0a 28 heme chicken)..(
0080: 64 65 66 69 6e 65 20 28 69 75 70 2d 64 79 6e 61 define (iup-dyna
0090: 6d 69 63 2d 72 65 71 75 69 72 65 20 73 79 6d 29 mic-require sym)
00a0: 0a 09 28 65 76 61 6c 20 60 28 62 65 67 69 6e 20 ..(eval `(begin
00b0: 28 72 65 71 75 69 72 65 2d 65 78 74 65 6e 73 69 (require-extensi
00c0: 6f 6e 20 69 75 70 29 20 2c 73 79 6d 29 29 29 0a on iup) ,sym))).
00d0: 0a 28 64 65 66 69 6e 65 20 28 69 75 70 2d 61 76 .(define (iup-av
00e0: 61 69 6c 61 62 6c 65 3f 29 0a 09 28 63 6f 6e 64 ailable?)..(cond
00f0: 69 74 69 6f 6e 2d 63 61 73 65 20 28 28 69 75 70 ition-case ((iup
0100: 2d 64 79 6e 61 6d 69 63 2d 72 65 71 75 69 72 65 -dynamic-require
0110: 20 27 69 75 70 2d 76 65 72 73 69 6f 6e 29 29 0a 'iup-version)).
0120: 09 09 5b 28 65 78 6e 29 20 23 66 5d 29 29 0a 0a ..[(exn) #f]))..
0130: 29 0a ).