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

Annotation of /tests/trunk/bugs/tests.obsolete/bug414.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug414.sml *)
2 :    
3 :     fun test path =
4 :     let
5 :     val cwd = OS.FileSys.getDir ()
6 :     in
7 :     { cd_in = fn () => (OS.FileSys.chDir path),
8 :     cd_out = fn () => (OS.FileSys.chDir cwd) }
9 :     end
10 :    
11 :     val {cd_in,cd_out} = test "/tmp";
12 :    
13 :     cd_in ();
14 :    
15 :     cd_out ();

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