Artifact
677bdb8e29b5502f66ccc822300521d81b1b8851:
0000: 0a 28 6c 69 62 72 61 72 79 20 28 73 72 66 69 20 .(library (srfi
0010: 70 72 69 76 61 74 65 20 69 6e 63 6c 75 64 65 20 private include
0020: 63 6f 6d 70 61 74 29 0a 0a 20 20 28 65 78 70 6f compat).. (expo
0030: 72 74 20 73 65 61 72 63 68 2d 70 61 74 68 73 29 rt search-paths)
0040: 0a 0a 20 20 28 69 6d 70 6f 72 74 20 28 63 68 65 .. (import (che
0050: 7a 73 63 68 65 6d 65 29 29 0a 0a 20 20 28 64 65 zscheme)).. (de
0060: 66 69 6e 65 20 28 73 65 61 72 63 68 2d 70 61 74 fine (search-pat
0070: 68 73 29 0a 20 20 20 20 28 6d 61 70 20 63 61 72 hs). (map car
0080: 20 28 6c 69 62 72 61 72 79 2d 64 69 72 65 63 74 (library-direct
0090: 6f 72 69 65 73 29 29 29 0a 0a 20 20 29 ories))).. )