From 5031cca224fde5e41767a11cb651c503ace6965e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 27 Jan 2008 23:30:24 -0600 Subject: [PATCH] Fix indentation --- extra/assocs/lib/lib.factor | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/extra/assocs/lib/lib.factor b/extra/assocs/lib/lib.factor index 00f330f0fc..849f88023f 100755 --- a/extra/assocs/lib/lib.factor +++ b/extra/assocs/lib/lib.factor @@ -9,16 +9,12 @@ IN: assocs.lib : ref-at ( table key -- value ) swap at ; -! set-at with alternative stack effects - : put-at* ( table key value -- ) swap rot set-at ; : put-at ( table key value -- table ) swap pick set-at ; -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - : set-assoc-stack ( value key seq -- ) - dupd [ key? ] with find-last nip set-at ; + dupd [ key? ] with find-last nip set-at ; : at-default ( key assoc -- value/key ) dupd at [ nip ] when* ;