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

core: swap 3append -> glue

db4
Doug Coleman 2008-12-03 19:12:48 -06:00
parent 3ab0d03a19
commit 0e14f767ee
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/effects/effects.factor
View File

@ -26,7 +26,7 @@ GENERIC: effect>string ( obj -- str )
M: string effect>string ; M: string effect>string ;
M: word effect>string name>> ; M: word effect>string name>> ;
M: integer effect>string number>string ; M: integer effect>string number>string ;
M: pair effect>string first2 [ effect>string ] bi@ ": " swap 3append ; M: pair effect>string first2 [ effect>string ] bi@ ": " glue ;
: stack-picture ( seq -- string ) : stack-picture ( seq -- string )
dup integer? [ "object" <repetition> ] when dup integer? [ "object" <repetition> ] when

2
core/generic/generic.factor
View File

@ -77,7 +77,7 @@ TUPLE: check-method class generic ;
3tri ; inline 3tri ; inline
: method-word-name ( class word -- string ) : method-word-name ( class word -- string )
[ name>> ] bi@ "=>" swap 3append ; [ name>> ] bi@ "=>" glue ;
PREDICATE: method-body < word PREDICATE: method-body < word
"method-generic" word-prop >boolean ; "method-generic" word-prop >boolean ;

2
core/math/parser/parser.factor
View File

@ -128,7 +128,7 @@ M: ratio >base
[ [
[ numerator (>base) ] [ numerator (>base) ]
[ denominator (>base) ] bi [ denominator (>base) ] bi
"/" swap 3append "/" glue
] bi* append ] bi* append
negative? get [ CHAR: - prefix ] when negative? get [ CHAR: - prefix ] when
] with-radix ; ] with-radix ;