From 6e2bd6f149a96a632572090600faa111ca548f77 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 16 May 2016 17:20:57 -0700 Subject: [PATCH] basis: fix docs. pdf.layout: fix change-last. --- basis/vocabs/files/files-docs.factor | 6 +++--- extra/pdf/layout/layout.factor | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/vocabs/files/files-docs.factor b/basis/vocabs/files/files-docs.factor index 12320e46c2..1009937662 100644 --- a/basis/vocabs/files/files-docs.factor +++ b/basis/vocabs/files/files-docs.factor @@ -23,9 +23,9 @@ HELP: vocab-files $[ { "{" - " \"resource:basis/alien/libraries/libraries.factor\"" - " \"resource:basis/alien/libraries/libraries-docs.factor\"" - " \"resource:basis/alien/libraries/libraries-tests.factor\"" + " \"resource:core/alien/libraries/libraries.factor\"" + " \"resource:core/alien/libraries/libraries-docs.factor\"" + " \"resource:core/alien/libraries/libraries-tests.factor\"" "}" } "\n" join ] diff --git a/extra/pdf/layout/layout.factor b/extra/pdf/layout/layout.factor index 3f056348e5..c8f1134412 100644 --- a/extra/pdf/layout/layout.factor +++ b/extra/pdf/layout/layout.factor @@ -252,7 +252,7 @@ M: table-row pdf-render ] each widths >alist sort-keys values ! 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 dup sum dup 400 > [ 400 swap / [ * ] curry map ] [ drop ] if ;