[/] [trunk/] [src/] [cmdlang/] [cmdloop.sml] - Rev 4

(* $Id$ *)

structure CmdLoop = struct
  datatype t = Continue
             | Stop
             | Abort
end