From 19ac40f0d91b613ea2875bf59a9701260ae8f76d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 4 Oct 2012 04:08:44 -0700 Subject: [PATCH] assocs.extras: adding if-assoc-empty. --- extra/assocs/extras/extras.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor index 383da2802c..2c7f61cd56 100644 --- a/extra/assocs/extras/extras.factor +++ b/extra/assocs/extras/extras.factor @@ -37,4 +37,5 @@ IN: assocs.extras : sum-values ( assoc -- n ) 0 [ + ] reduce-values ; inline - +: if-assoc-empty ( ..a assoc quot1: ( ..a -- ..b ) quot2: ( ..a assoc -- ..b ) -- ..b ) + [ dup assoc-empty? ] [ [ drop ] prepose ] [ ] tri* if ; inline