From 5e6a1bd241023c4a2b38af5f06c69079079e6aba Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 13 Mar 2008 03:49:07 -0500 Subject: [PATCH] Locals doesn't need to use map-call-with2 --- extra/locals/locals.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/locals/locals.factor b/extra/locals/locals.factor index 956504be2c..9819e65e37 100755 --- a/extra/locals/locals.factor +++ b/extra/locals/locals.factor @@ -5,7 +5,7 @@ inference.transforms parser words quotations debugger macros arrays macros splitting combinators prettyprint.backend definitions prettyprint hashtables combinators.lib prettyprint.sections sequences.private effects generic -compiler.units ; +compiler.units combinators.cleave ; IN: locals ! Inspired by @@ -108,8 +108,8 @@ UNION: special local quote local-word local-reader local-writer ; if ; : (point-free) ( quot args -- newquot ) - { [ load-locals ] [ point-free-body ] [ point-free-end ] } - map-call-with2 concat >quotation ; + [ load-locals ] [ point-free-body ] [ point-free-end ] + 2tri 3append >quotation ; : point-free ( quot args -- newquot ) over empty? [ drop ] [ (point-free) ] if ;