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/eXene/lib/protocol/xserver-addr.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/lib/protocol/xserver-addr.sml

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

revision 1861, Mon Nov 7 18:17:09 2005 UTC revision 1862, Mon Nov 7 23:03:18 2005 UTC
# Line 63  Line 63 
63                    | SOME(n, _) => n                    | SOME(n, _) => n
64                  (* end case *))                  (* end case *))
65            val (hostname, rest) = let            val (hostname, rest) = let
66                  val (a, b) = SS.splitl (fn #":" => false | _ => true) (SS.all s)                  val (a, b) = SS.splitl (fn #":" => false | _ => true) (SS.full s)
67                  in                  in
68                    (SS.string a, SS.triml 1 b)                    (SS.string a, SS.triml 1 b)
69                  end                  end

Legend:
Removed from v.1861  
changed lines
  Added in v.1862

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