From f53746f80145a184b5e4a6974175e2f92f49dcba Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 9 Jun 2017 00:13:39 -0700
Subject: 3901

---
 061text.mu | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to '061text.mu')

diff --git a/061text.mu b/061text.mu
index db198d01..913bc53a 100644
--- a/061text.mu
+++ b/061text.mu
@@ -196,16 +196,7 @@ def append buf:&:buffer:char, x:_elem -> buf:&:buffer:char [
   local-scope
   load-ingredients
   text:text <- to-text x
-  len:num <- length *text
-  i:num <- copy 0
-  {
-    done?:bool <- greater-or-equal i, len
-    break-if done?
-    c:char <- index *text, i
-    buf <- append buf, c
-    i <- add i, 1
-    loop
-  }
+  buf <- append buf, text
 ]
 
 # specialization for characters that is backspace-aware
-- 
cgit 1.4.1-2-gfad0