steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sbufs: no need to contract.

John Benediktsson 2012-10-24 20:16:34 -07:00
parent 2b1aec75b4
commit 90da68acec
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sbufs/sbufs.factor
View File

@ -19,6 +19,8 @@ M: sbuf new-sequence
: >sbuf ( seq -- sbuf ) SBUF" " clone-like ; inline : >sbuf ( seq -- sbuf ) SBUF" " clone-like ; inline
M: sbuf contract 2drop ; inline
M: sbuf like M: sbuf like
drop dup sbuf? [ drop dup sbuf? [
dup string? [ dup length sbuf boa ] [ >sbuf ] if dup string? [ dup length sbuf boa ] [ >sbuf ] if