diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-07-15 18:55:58 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-07-15 18:55:58 -0400 |
| commit | 5f5229381acb24b444f05513b0123ae62a5cb092 (patch) | |
| tree | 12f8f5eac9e735909223542818bb3f9fefc70ef0 /src/tutorial.sml | |
| parent | 46b253e9a205802cd4503f2e4753b7a3002326ae (diff) | |
Make 'static' protocol handle unlimited retry
Diffstat (limited to 'src/tutorial.sml')
| -rw-r--r-- | src/tutorial.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tutorial.sml b/src/tutorial.sml index f6b9defb..8d60ed11 100644 --- a/src/tutorial.sml +++ b/src/tutorial.sml @@ -79,7 +79,7 @@ fun fixupFile (fname, title) = else let val (befor', after) = Substring.position " </span><span class=\"comment-delimiter\">*)</span>" - (Substring.slice (after, 64, NONE)) + (Substring.slice (after, 64, NONE)) in if Substring.isEmpty after then TextIO.outputSubstr (outf, source) |