From cf556faf6600057530aafc35c7bfcfb3ce469ca4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 15 Aug 2008 04:09:34 -0500
Subject: [PATCH] Cleanup
---
basis/prettyprint/sections/sections.factor | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/basis/prettyprint/sections/sections.factor b/basis/prettyprint/sections/sections.factor
index 23a50700b3..168e118d4b 100644
--- a/basis/prettyprint/sections/sections.factor
+++ b/basis/prettyprint/sections/sections.factor
@@ -171,10 +171,11 @@ M: block section-fits? ( section -- ? )
line-limit? [ drop t ] [ call-next-method ] if ;
: pprint-sections ( block advancer -- )
- swap sections>> [ line-break? not ] filter
- unclip pprint-section [
- dup rot call pprint-section
- ] with each ; inline
+ [
+ sections>> [ line-break? not ] filter
+ unclip-slice pprint-section
+ ] dip
+ [ [ pprint-section ] bi ] curry each ; inline
M: block short-section ( block -- )
[ advance ] pprint-sections ;