Support old behavior
parent
40acac17c2
commit
cad4a4ea77
|
@ -22,9 +22,7 @@ ERROR: invalid-c-string string ;
|
||||||
|
|
||||||
GENERIC# string>alien 1 ( string encoding -- byte-array )
|
GENERIC# string>alien 1 ( string encoding -- byte-array )
|
||||||
|
|
||||||
M: alien string>alien drop ;
|
M: c-ptr string>alien drop ;
|
||||||
|
|
||||||
M: byte-array string>alien drop ;
|
|
||||||
|
|
||||||
M: string string>alien
|
M: string string>alien
|
||||||
over check-string
|
over check-string
|
||||||
|
|
Loading…
Reference in New Issue