lib/mlton/basic/export.sml

   1 (* Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 structure Export: EXPORT =
   9 struct
  10
  11 structure NJ = SMLofNJ
  12
  13 fun exportFn(file, command) =
  14    NJ.exportFn(File.toString file,
  15                fn arg => ((command arg)
  16                           handle exn => (print ("Unhandled exception: "
  17                                                 ^ exnName exn ^ "\n") ;
  18                                          raise exn)))
  19
  20 end