change usage of sbuf>string to >string

cvs
Chris Double 2005-05-16 02:33:08 +00:00
parent fdcf721857
commit 4e57df3247
1 changed files with 1 additions and 1 deletions

View File

@ -194,7 +194,7 @@ USE: sequences
"browser" "responder" set
1024 <sbuf> dup >r <html-stream> [
do-eval
] with-stream r> sbuf>string
] with-stream r> >string
] with-scope ;
: forever ( quot -- )