charts.lines: avoid calling like when not necessary
parent
317fe9e9f4
commit
cdc321cd93
|
@ -67,7 +67,7 @@ TUPLE: line < gadget color data ;
|
||||||
adjusted-tail-slice
|
adjusted-tail-slice
|
||||||
[ second ] dip [ search-first? not ] keep
|
[ second ] dip [ search-first? not ] keep
|
||||||
adjusted-head-slice
|
adjusted-head-slice
|
||||||
dup like
|
dup slice? [ dup like ] when
|
||||||
] [
|
] [
|
||||||
2drop { } clone
|
2drop { } clone
|
||||||
] if ;
|
] if ;
|
||||||
|
|
Loading…
Reference in New Issue