diff options
-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 } { |