| 1 | Some unit-tests expect an installed version of Gambit, redirect to the |
| 2 | local source. |
| 3 | |
| 4 | |
| 5 | |
| 6 | |
| 7 | |
| 8 | (case target |
| 9 | ((C) |
| 10 | - (run "../gsi/gsi" "-:debug-settings=-,io-settings=lu,~~=.." "-f" file)) |
| 11 | + (run "../gsi/gsi" "-:debug-settings=-,io-settings=lu,~~=..,~~lib=../lib" "-f" file)) |
| 12 | (else |
| 13 | (let ((gsi (string-append "../gsi/gsi-" (symbol->string target)))) |
| 14 | (run gsi "-f" file)))))) |