about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-10-20 15:04:01 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-10-20 15:04:01 -0700
commite78ff7b070d031c078a38e4729c38ea3f09a0734 (patch)
treef0cef23710f84f97f31f1f6434cbf0104343a6ea
parent52d0bbf6b30ec041ed2f12572d6ddc03ecfe981b (diff)
downloadmu-e78ff7b070d031c078a38e4729c38ea3f09a0734.tar.gz
3526
-rw-r--r--http-client.mu6
-rw-r--r--lambda-to-mu.mu6
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
   }
   {