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/idlbasis-devel/src/system/Basis/Implementation/bool.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/bool.sml

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

revision 862, Thu Jun 28 02:43:07 2001 UTC revision 863, Thu Jun 28 20:41:28 2001 UTC
# Line 16  Line 16 
16      fun scan (getc : (char, 'a) StringCvt.reader) cs = (      fun scan (getc : (char, 'a) StringCvt.reader) cs = (
17            case (getc (PreBasis.skipWS getc cs))            case (getc (PreBasis.skipWS getc cs))
18             of (SOME((#"t"| #"T"), cs')) => (case (PreBasis.getNChars getc (cs', 3))             of (SOME((#"t"| #"T"), cs')) => (case (PreBasis.getNChars getc (cs', 3))
19                   of (SOME([(#"r"| "#R"), (#"u"| #"U"), (#"e"| #"E")], cs'')) =>                   of (SOME([(#"r"| #"R"), (#"u"| #"U"), (#"e"| #"E")], cs'')) =>
20                        SOME(true, cs'')                        SOME(true, cs'')
21                    | _ => NONE                    | _ => NONE
22                  (* end case *))                  (* end case *))

Legend:
Removed from v.862  
changed lines
  Added in v.863

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