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

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

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

revision 288, Sat May 22 21:01:25 1999 UTC revision 289, Sat May 22 21:01:25 1999 UTC
# Line 36  Line 36 
36      fun seq (p1, p2) = seqWith (fn x => x) (p1, p2)      fun seq (p1, p2) = seqWith (fn x => x) (p1, p2)
37    
38      fun bind (p1, p2') getc strm = (case (p1 getc strm)      fun bind (p1, p2') getc strm = (case (p1 getc strm)
39             of SOME(t1, strm1) => p2' t1 getc strm             of SOME(t1, strm1) => p2' t1 getc strm1
40              | NONE => NONE              | NONE => NONE
41            (* end case *))            (* end case *))
42    

Legend:
Removed from v.288  
changed lines
  Added in v.289

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