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

Minor fix to make sure strings are produced.

db4
John Benediktsson 2013-04-06 18:50:26 -07:00
parent c900590f8b
commit 987ecea441
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gestures/gestures.factor
View File

@ -326,10 +326,10 @@ M: macosx modifiers>string
{ S+ [ "\u0021e7" ] } { S+ [ "\u0021e7" ] }
{ C+ [ "\u002303" ] } { C+ [ "\u002303" ] }
} case } case
] map concat ; ] map "" concat-as ;
M: object modifiers>string M: object modifiers>string
[ name>> ] map concat ; [ name>> ] map "" concat-as ;
HOOK: keysym>string os ( keysym -- string ) HOOK: keysym>string os ( keysym -- string )

2
basis/xml/writer/writer.factor
View File

@ -19,7 +19,7 @@ SYMBOL: indentation
: indent-string ( -- string ) : indent-string ( -- string )
xml-pprint? get xml-pprint? get
[ indentation get indenter get <repetition> concat ] [ indentation get indenter get <repetition> "" concat-as ]
[ "" ] if ; [ "" ] if ;
: ?indent ( -- ) : ?indent ( -- )