changeset 15570 | 8d8c70b41bab |
parent 15531 | 08c8dad8e399 |
child 16002 | e0557c452138 |
15569:1b3115d1a8df | 15570:8d8c70b41bab |
---|---|
94 (case file_info name of |
94 (case file_info name of |
95 "" => NONE |
95 "" => NONE |
96 | s => SOME (Info s)) |
96 | s => SOME (Info s)) |
97 end; |
97 end; |
98 |
98 |
99 val exists = is_some o info; |
99 val exists = isSome o info; |
100 |
100 |
101 |
101 |
102 (* directories *) |
102 (* directories *) |
103 |
103 |
104 fun system_command cmd = |
104 fun system_command cmd = |