diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-10-20 15:04:01 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-10-20 15:04:01 -0700 |
commit | e78ff7b070d031c078a38e4729c38ea3f09a0734 (patch) | |
tree | f0cef23710f84f97f31f1f6434cbf0104343a6ea | |
parent | 52d0bbf6b30ec041ed2f12572d6ddc03ecfe981b (diff) | |
download | mu-e78ff7b070d031c078a38e4729c38ea3f09a0734.tar.gz |
3526
-rw-r--r-- | http-client.mu | 6 | ||||
-rw-r--r-- | lambda-to-mu.mu | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/http-client.mu b/http-client.mu index b7fa8b30..8c781e5f 100644 --- a/http-client.mu +++ b/http-client.mu @@ -4,17 +4,17 @@ def main [ local-scope google:&:source:char <- start-reading-from-network 0/real-resources, [google.com], [/] n:num <- copy 0 - b:&:buffer <- new-buffer 30 + buf:&:buffer <- new-buffer 30 { c:char, done?:bool <- read google break-if done? n <- add n, 1 - b <- append b, c + buf <- append buf, c #? trunc?:bool <- greater-or-equal n, 10000 #? loop-unless trunc? loop } - result:text <- buffer-to-array b + result:text <- buffer-to-array buf open-console len:num <- length *result print 0/real-screen, result diff --git a/lambda-to-mu.mu b/lambda-to-mu.mu index d7220b1d..6c358d9f 100644 --- a/lambda-to-mu.mu +++ b/lambda-to-mu.mu @@ -186,7 +186,7 @@ def parse in:&:stream:char -> out:&:cell, in:&:stream:char [ { break-if pair? # atom - b:&:buffer <- new-buffer 30 + buf:&:buffer <- new-buffer 30 { done?:bool <- end-of-stream? in break-if done? @@ -197,10 +197,10 @@ def parse in:&:stream:char -> out:&:cell, in:&:stream:char [ done? <- space? c break-if done? c <- read in - b <- append b, c + buf <- append buf, c loop } - s:text <- buffer-to-array b + s:text <- buffer-to-array buf out <- new-atom s } { |