diff options
Diffstat (limited to 'html/http-client.mu.html')
| -rw-r--r-- | html/http-client.mu.html | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/html/http-client.mu.html b/html/http-client.mu.html index bd5520c3..96e87f5c 100644 --- a/html/http-client.mu.html +++ b/html/http-client.mu.html @@ -37,17 +37,17 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Constant">local-scope</span> google:&:source:char<span class="Special"> <- </span>start-reading-from-network <span class="Constant">0/real-resources</span>, <span class="Constant">[google.com]</span>, <span class="Constant">[/]</span> n:num<span class="Special"> <- </span>copy <span class="Constant">0</span> - b:&:buffer<span class="Special"> <- </span>new-buffer <span class="Constant">30</span> + buf:&:buffer<span class="Special"> <- </span>new-buffer <span class="Constant">30</span> <span class="Delimiter">{</span> c:char, done?:bool<span class="Special"> <- </span>read google <span class="muControl">break-if</span> done? n<span class="Special"> <- </span>add n, <span class="Constant">1</span> - b<span class="Special"> <- </span>append b, c + buf<span class="Special"> <- </span>append buf, c <span class="CommentedCode">#? trunc?:bool <- greater-or-equal n, 10000</span> <span class="CommentedCode">#? loop-unless trunc?</span> <span class="muControl">loop</span> <span class="Delimiter">}</span> - result:text<span class="Special"> <- </span>buffer-to-array b + result:text<span class="Special"> <- </span>buffer-to-array buf open-console len:num<span class="Special"> <- </span>length *result print <span class="Constant">0/real-screen</span>, result |