alien.strings: Actually return a string instead of an array of strings in

M\ array symbol>string. Fixes #1098.
db4
Doug Coleman 2014-07-08 13:49:11 -05:00
parent ee08a436fd
commit 26a8cbbab4
1 changed files with 2 additions and 2 deletions

View File

@ -83,9 +83,9 @@ M: sequence string>symbol [ utf8 string>alien ] map ;
: (symbol>string) ( alien -- str )
utf8 alien>string ;
GENERIC: symbol>string ( symbol(s) -- string(s) )
GENERIC: symbol>string ( symbol(s) -- string )
M: byte-array symbol>string (symbol>string) ;
M: array symbol>string [ (symbol>string) ] map ;
M: array symbol>string [ (symbol>string) ] map ", " join ;
[
OBJ-CPU special-object utf8 alien>string string>cpu \ cpu set-global