Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/smlnj-lib/Reactive/OLD/test.sml
ViewVC logotype

View of /sml/trunk/src/smlnj-lib/Reactive/OLD/test.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 7 - (download) (annotate)
Sun Jan 18 00:59:30 1998 UTC (23 years ago) by monnier
File size: 195 byte(s)
Initial revision
use "react.sml";

local
  open React
  infix &
  infix ||
  fun prAct s = React.action (fn _ => TextIO.print s)
in
val example = ((stop() & prAct "left ") || prAct "right ") & prAct "end\n"
end;

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0