Fix string buffer implementation bug

2007-10-06 13:36:24 -04:00 · 2007-10-06 13:36:24 -04:00 · 5bc73cc5af
parent 1c1e6a7af0
commit 5bc73cc5af
1 changed files with 1 additions and 1 deletions
--- a/core/sbufs/sbufs.factor
+++ b/core/sbufs/sbufs.factor
@ -9,7 +9,7 @@ IN: sbufs
 M: sbuf set-nth-unsafe
    underlying >r >r >fixnum r> >fixnum r> set-char-slot ;

-M: sbuf new drop [ 0 <string> ] keep string>sbuf ;
+M: sbuf new drop [ 0 <string> ] keep >fixnum string>sbuf ;

 : >sbuf ( seq -- sbuf ) SBUF" " clone-like ; inline