buffers: replace operation.

* buf.c (replace_buf): New function.

* buf.h (replace_buf): Declared.

* lib.c (replace): Wire in.

1 files changed, 1 insertions, 1 deletions

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);
   }