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/smlnj-lib/Util/parser-comb.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Util/parser-comb.sml

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

revision 1334, Thu May 22 22:46:30 2003 UTC revision 1335, Tue May 27 21:54:23 2003 UTC
# Line 45  Line 45 
45              | _ => NONE              | _ => NONE
46            (* end case *))            (* end case *))
47    
48      fun char c = eatChar (fn c' => (c = c'))      fun char (c: char) = eatChar (fn c' => (c = c'))
49    
50      fun string s getc strm = let      fun string s getc strm = let
51            fun eat (ss, strm) = (case (Substring.getc ss, getc strm)            fun eat (ss, strm) = (case (Substring.getc ss, getc strm)

Legend:
Removed from v.1334  
changed lines
  Added in v.1335

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