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/vector.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/vector.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 52  Line 52 
52      fun rev ([], l) = l      fun rev ([], l) = l
53        | rev (x::r, l) = rev (r, x::l)        | rev (x::r, l) = rev (r, x::l)
54    
55    (*
56      fun extract (v, base, optLen) = let      fun extract (v, base, optLen) = let
57            val len = length v            val len = length v
58            fun newVec n = let            fun newVec n = let
# Line 77  Line 78 
78                      else newVec n                      else newVec n
79              (* end case *)              (* end case *)
80            end            end
81    *)
82    
83      fun concat [v] = v      fun concat [v] = v
84        | concat vl = let        | concat vl = let

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