Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /tests/trunk/bugs/tests.obsolete/bug1316.3.sml
ViewVC logotype

Annotation of /tests/trunk/bugs/tests.obsolete/bug1316.3.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug1316.3.sml *)
2 :    
3 :     fun test (a, l, i, NONE) = (a, i, l)
4 :     | test (a, l, i, SOME n) =
5 :     if (i + n > l)
6 :     then raise Subscript
7 :     else (a, i, SOME n);
8 :    

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