new accessors

db4
Doug Coleman 2008-09-01 18:22:41 -05:00
parent 1b239d294c
commit 5db23de4ed
1 changed files with 1 additions and 1 deletions

View File

@ -4,7 +4,7 @@ sequences tools.test namespaces byte-arrays strings accessors
destructors ;
: buffer-set ( string buffer -- )
over >byte-array over buffer-ptr byte-array>memory
over >byte-array over ptr>> byte-array>memory
>r length r> buffer-reset ;
: string>buffer ( string -- buffer )