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

pdf.layout: change-last needs prefix due to name clash from accessors

factor-shell
Björn Lindqvist 2018-01-24 18:20:30 +01:00
parent 3b45c93ece
commit cd5a0c420d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/pdf/layout/layout.factor
View File

@ -1,6 +1,5 @@
! Copyright (C) 2011-2012 John Benediktsson ! Copyright (C) 2011-2012 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors assocs calendar combinators environment fonts USING: accessors assocs calendar combinators environment fonts
formatting fry io io.streams.string kernel literals locals make formatting fry io io.streams.string kernel literals locals make
math math.order math.ranges namespaces pdf.canvas pdf.values math math.order math.ranges namespaces pdf.canvas pdf.values
@ -252,7 +251,7 @@ M: table-row pdf-render
] each widths >alist sort-keys values ] each widths >alist sort-keys values
! make last cell larger ! make last cell larger
dup sum 400 swap [-] [ + ] curry dupd change-last dup sum 400 swap [-] [ + ] curry dupd sequences.extras:change-last
! size down each column ! size down each column
dup sum dup 400 > [ 400 swap / [ * ] curry map ] [ drop ] if ; dup sum dup 400 > [ 400 swap / [ * ] curry map ] [ drop ] if ;