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/cm/compile/full-persstate-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/full-persstate-fn.sml

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

revision 353, Thu Jun 24 09:43:28 1999 UTC revision 354, Fri Jun 25 08:36:12 1999 UTC
# Line 63  Line 63 
63          fun (f o' g) (x, y) = f (g x, y)          fun (f o' g) (x, y) = f (g x, y)
64    
65          fun exec_look (k, gp) = let          fun exec_look (k, gp) = let
66              fun descr (SML i) = SmlInfo.name i              fun descr (SML i) = SmlInfo.descr i
67                | descr (STABLE i) = BinInfo.describe i                | descr (STABLE i) = BinInfo.describe i
68              fun error (SML i) = SmlInfo.error gp i              fun error (SML i) = SmlInfo.error gp i
69                | error (STABLE i) = BinInfo.error i                | error (STABLE i) = BinInfo.error i

Legend:
Removed from v.353  
changed lines
  Added in v.354

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