From 8f72f80a49eeefc27d6790acec0d706d3852ed04 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 12 Jun 2019 23:28:52 -0700
Subject: buffers: replace operation.

* buf.c (replace_buf): New function.

* buf.h (replace_buf): Declared.

* lib.c (replace): Wire in.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index c462a238..70dba1cc 100644
--- a/lib.c
+++ b/lib.c
@@ -10089,7 +10089,7 @@ val replace(val seq, val items, val from, val to)
       return replace_obj(seq, items, from, to);
     /* fallthrough */
   case BUF:
-    type_mismatch(lit("~a: operation doesn't support buf type"), self, nao);
+    return replace_buf(seq, items, from, to);
   default:
     type_mismatch(lit("~a: ~s is not a sequence"), self, seq, nao);
   }
-- 
cgit v1.2.3