new accessors
parent
1b239d294c
commit
5db23de4ed
|
@ -4,7 +4,7 @@ sequences tools.test namespaces byte-arrays strings accessors
|
||||||
destructors ;
|
destructors ;
|
||||||
|
|
||||||
: buffer-set ( string buffer -- )
|
: 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 ;
|
>r length r> buffer-reset ;
|
||||||
|
|
||||||
: string>buffer ( string -- buffer )
|
: string>buffer ( string -- buffer )
|
||||||
|
|
Loading…
Reference in New Issue