new accessors
parent
1b239d294c
commit
5db23de4ed
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue