From e0aff8d02ccd4ef34e5463168d8a7f5d29c1585e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 24 Oct 2012 20:16:34 -0700
Subject: [PATCH] sbufs: no need to contract.

---
 core/sbufs/sbufs.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/core/sbufs/sbufs.factor b/core/sbufs/sbufs.factor
index 13af7c65cb..a628ab35a1 100644
--- a/core/sbufs/sbufs.factor
+++ b/core/sbufs/sbufs.factor
@@ -19,6 +19,8 @@ M: sbuf new-sequence
 
 : >sbuf ( seq -- sbuf ) SBUF" " clone-like ; inline
 
+M: sbuf contract 2drop ; inline
+
 M: sbuf like
     drop dup sbuf? [
         dup string? [ dup length sbuf boa ] [ >sbuf ] if