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/compiler/PervEnv/Basis/array2.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/PervEnv/Basis/array2.sml

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

revision 142, Mon Sep 7 21:37:09 1998 UTC revision 143, Mon Sep 7 21:46:44 1998 UTC
# Line 115  Line 115 
115            in            in
116              if ltu(nrows, i)              if ltu(nrows, i)
117                then raise General.Subscript                then raise General.Subscript
118                else mkVec (stop+nrows-1, [])                else mkVec (stop+ncols-1, [])
119            end            end
120      fun column ({data, nrows, ncols}, j) = let      fun column ({data, nrows, ncols}, j) = let
121            fun mkVec (i, l) =            fun mkVec (i, l) =
# Line 288  Line 288 
288    
289    end    end
290    
 (*  
  * $Log$  
  *)  

Legend:
Removed from v.142  
changed lines
  Added in v.143

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