sbufs: no need to contract.

diff --git a/core/sbufs/sbufs.factor b/core/sbufs/sbufs.factor
index 13af7c65cbaac971a98c1b490c78231e28d801da..a628ab35a15b41d998ff6385e1788d2f82ae83ed 100644 (file)
--- 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