sbufs: no need to contract.

2012-10-24 20:16:34 -07:00 · 2012-10-24 20:16:34 -07:00 · 90da68acec
parent 2b1aec75b4
commit 90da68acec
1 changed files with 2 additions and 0 deletions
--- 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