module stratego-lib-hackery strategies current-working-dir = prim("SSL_current_working_dir") tmp-file-exists = ?path; prim("SSL_file_exists", path) tmp-find-in-path(strict|path) = ?file ; ( tmp-file-exists <+ <fetch-elem(<concat-strings; tmp-file-exists> [<id>,"/",file])> path <+ if strict then <fatal-error> ["no such file: ", file] else fail end )