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/branches/SMLNJ/src/compiler/TopLevel/interact/evalloop.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/TopLevel/interact/evalloop.sml

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

revision 68, Fri Apr 3 00:06:42 1998 UTC revision 69, Fri Apr 3 00:06:55 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.68  
changed lines
  Added in v.69

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