Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/IL/check-il-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/IL/check-il-fn.sml

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

revision 3071, Sun Mar 15 00:09:44 2015 UTC revision 3072, Sun Mar 15 16:33:00 2015 UTC
# Line 359  Line 359 
359                    List.app checkMethod methods                    List.app checkMethod methods
360                  end                  end
361          (* handle exceptions *)          (* handle exceptions *)
362            fun onExn exn = errFn [S "uncaught exception: ", S(exnMessage exn)]            fun onExn exn =
363                    errFn (S "uncaught exception: " :: S(exnMessage exn) ::
364                      List.foldr (fn (s, msg) => NL :: S "    raised at " :: S s :: msg)
365                        [] (SMLofNJ.exnHistory exn))
366            in            in
367            (* check the input part *)            (* check the input part *)
368              checkCFG ([], inputInit) handle ex => onExn ex;              checkCFG ([], inputInit) handle ex => onExn ex;

Legend:
Removed from v.3071  
changed lines
  Added in v.3072

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