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
      )