sbufs: no need to contract.

2012-10-24 20:16:34 -07:00 · 2012-10-24 20:16:34 -07:00 · e0aff8d02c
parent be4db5312f
commit e0aff8d02c
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