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/system/Basis/Implementation/array-slice.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/array-slice.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 34  Line 34 
34      fun update (SL { base, start, stop }, i, x) = let      fun update (SL { base, start, stop }, i, x) = let
35          val i' = start + i          val i' = start + i
36      in      in
37          if i' <= start orelse i' > stop then raise Subscript          if i' < start orelse i' >= stop then raise Subscript
38          else uupd (base, i', x)          else uupd (base, i', x)
39      end      end
40    

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