From eb2b6cd21e06b3a421ede3f7a6ae78b932dcab19 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 25 Nov 2016 22:30:36 -0800 Subject: 3693 --- 088file.mu | 6 +++++- html/088file.mu.html | 6 +++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/088file.mu b/088file.mu index fb03e8bf..e91723ab 100644 --- a/088file.mu +++ b/088file.mu @@ -90,7 +90,11 @@ def start-writing resources:&:resources, filename:text -> sink:&:sink:char, rout } # real file system file:num <- $open-file-for-writing filename - assert file, [no such file] + { + break-if file + msg:text <- append [no such file: ] filename + assert file, msg + } routine-id <- start-running transmit-to-file file, source ] diff --git a/html/088file.mu.html b/html/088file.mu.html index db45a81e..8f044eaa 100644 --- a/html/088file.mu.html +++ b/html/088file.mu.html @@ -123,7 +123,11 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color } # real file system file:num <- $open-file-for-writing filename - assert file, [no such file] + { + break-if file + msg:text <- append [no such file: ] filename + assert file, msg + } routine-id <- start-running transmit-to-file file, source ] -- cgit 1.4.1-2-gfad0 e41757c004ff1af91a098eee819463ee'>diff stats
path: root/TODO
blob: cab7eb0470b000529959f7fa0a67bbc7813cbbfe (plain) (blame) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98