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 591, Mon Apr 3 01:19:20 2000 UTC revision 592, Mon Apr 3 07:04:12 2000 UTC
# Line 74  Line 74 
74               (source: Source.inputSource) : unit =               (source: Source.inputSource) : unit =
75    
76  let val parser = C.parseOne source  let val parser = C.parseOne source
77      val cinfo = C.mkCompInfo(source,#get EnvRef.core (),transform)      val cinfo = C.mkCompInfo(source,transform)
78    
79      fun checkErrors s =      fun checkErrors s =
80          if C.anyErrors cinfo then raise EM.Error else ()          if C.anyErrors cinfo then raise EM.Error else ()

Legend:
Removed from v.591  
changed lines
  Added in v.592

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