comparison tests/chat.ur @ 690:01b6f2ee2ef0

Redo signal implementation to avoid memory leaks
author Adam Chlipala <adamc@hcoop.net>
date Thu, 02 Apr 2009 15:12:06 -0400
parents 5bbb542243e8
children
comparison
equal deleted inserted replaced
689:b6a8425e1b1f 690:01b6f2ee2ef0
46 room <- getRoom (); 46 room <- getRoom ();
47 Room.send room line 47 Room.send room line
48 48
49 fun doSpeak () = 49 fun doSpeak () =
50 line <- get newLine; 50 line <- get newLine;
51 set newLine "";
51 speak line 52 speak line
52 in 53 in
53 return <xml><body onload={onload ()}> 54 return <xml><body onload={onload ()}>
54 <h1>{[r.T.Title]}</h1> 55 <h1>{[r.T.Title]}</h1>
55 56