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

alien.strings: remove (symbol>string) helper word.

db4
John Benediktsson 2015-08-15 16:13:46 -07:00
parent 18e557785f
commit 7d4964c136
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,6 +63,7 @@ M: tuple string>alien drop underlying>> ;
HOOK: native-string-encoding os ( -- encoding ) foldable HOOK: native-string-encoding os ( -- encoding ) foldable
M: unix native-string-encoding utf8 ; M: unix native-string-encoding utf8 ;
M: windows native-string-encoding utf16n ; M: windows native-string-encoding utf16n ;
: alien>native-string ( alien -- string ) : alien>native-string ( alien -- string )
@ -80,16 +81,14 @@ 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 )
utf8 alien>string ;
GENERIC: symbol>string ( symbol(s) -- string ) GENERIC: symbol>string ( symbol(s) -- string )
: special-object>string ( n -- str ) M: byte-array symbol>string utf8 alien>string ;
special-object (symbol>string) ;
M: byte-array symbol>string (symbol>string) ; M: array symbol>string [ utf8 alien>string ] map ", " join ;
M: array symbol>string [ (symbol>string) ] map ", " join ;
: special-object>string ( n -- str )
special-object utf8 alien>string ;
[ [
OBJ-CPU special-object>string string>cpu \ cpu set-global OBJ-CPU special-object>string string>cpu \ cpu set-global