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

Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/word8-vector-slice.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 33  Line 33 
33    
34  (* val full : vector -> slice *)  (* val full : vector -> slice *)
35    fun full base = SL{base=base,start=0,stop=InlineT.PolyVector.length base}    fun full base = SL{base=base,start=0,stop=InlineT.PolyVector.length base}
36    (*
37        let val blen = V.length base        let val blen = V.length base
38         in if geu(start, blen)  (* checks start >= 0 *)         in if geu(start, blen)  (* checks start >= 0 *)
39            then raise Core.Subscript            then raise Core.Subscript
# Line 43  Line 44 
44                        then raise Core.Subscript                        then raise Core.Subscript
45                        else SL{base=base,start=start,stop=start+n}                        else SL{base=base,start=start,stop=start+n}
46        end        end
47    *)
48    
49    
50  (* val slice : vector * int * int option -> slice *)  (* val slice : vector * int * int option -> slice *)

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