steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.strings: handle symbol arrays in symbol>string

Joe Groff 2011-09-13 14:46:22 -07:00
parent 60913a6d7b
commit 444339abb0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/alien/strings/strings.factor
View File

@ -57,9 +57,13 @@ M: string string>symbol utf8 string>alien ;
M: sequence string>symbol [ utf8 string>alien ] map ; M: sequence string>symbol [ utf8 string>alien ] map ;
: symbol>string ( alien -- str ) : (symbol>string) ( alien -- str )
utf8 alien>string ; utf8 alien>string ;
GENERIC: symbol>string ( symbol(s) -- string(s) )
M: byte-array symbol>string (symbol>string) ;
M: array symbol>string [ (symbol>string) ] map ;
[ [
8 special-object utf8 alien>string string>cpu \ cpu set-global 8 special-object utf8 alien>string string>cpu \ cpu set-global
9 special-object utf8 alien>string string>os \ os set-global 9 special-object utf8 alien>string string>os \ os set-global