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/RegExp/Glue/match-tree.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/RegExp/Glue/match-tree.sml

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

revision 1247, Mon Jun 17 20:32:12 2002 UTC revision 1248, Wed Jun 19 16:24:19 2002 UTC
# Line 52  Line 52 
52            datatype 'a sum = INL of int | INR of 'a            datatype 'a sum = INL of int | INR of 'a
53            fun walk (0, Match (x,_)) = INR x            fun walk (0, Match (x,_)) = INR x
54              | walk (i, Match (_,children)) = let              | walk (i, Match (_,children)) = let
55                  fun walkList (i, []) = INL(i-1)                  fun walkList (i, []) = INL i
56                    | walkList (i, m::r) = (case walk(i, m)                    | walkList (i, m::r) = (case walk(i, m)
57                         of (INL j) => walkList (j, r)                         of (INL j) => walkList (j, r)
58                          | result => result                          | result => result

Legend:
Removed from v.1247  
changed lines
  Added in v.1248

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