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

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/TopLevel/interact/evalloop.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/interact/evalloop.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 47, Sun Mar 22 21:53:07 1998 UTC revision 56, Sun Mar 29 01:00:36 1998 UTC
# Line 170  Line 170 
170    
171         fun loop () =         fun loop () =
172                evalLoop interactParams source                evalLoop interactParams source
173                handle EndOfFile => ()                handle EndOfFile => (say "\n")
174                    | Interrupt => (say "\nInterrupt\n";                    | Interrupt => (say "\nInterrupt\n";
175                                flush(); loop())                                flush(); loop())
176                    (* | EM.Error => (flush(); loop()) *)                    (* | EM.Error => (flush(); loop()) *)

Legend:
Removed from v.47  
changed lines
  Added in v.56

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