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 | 4b54ea891652138a8d58399bbbfdbb852b70eabd (patch) | |
| tree | 12f8f5eac9e735909223542818bb3f9fefc70ef0 /src/tutorial.sml | |
| parent | 4593948fd27e6cdc4c24a0b008ce1beac4df2560 (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) |