From 4ce7ddb27d416e5eeadc8487f24f116f0a6644c1 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 19 Apr 2008 20:40:04 -0500 Subject: [PATCH] Cleanup --- extra/ui/commands/commands.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/ui/commands/commands.factor b/extra/ui/commands/commands.factor index 90eb6254cd..c7db687dc3 100755 --- a/extra/ui/commands/commands.factor +++ b/extra/ui/commands/commands.factor @@ -66,7 +66,7 @@ M: word command-description ( word -- str ) H{ { +nullary+ f } { +listener+ f } { +description+ f } } ; : define-command ( word hash -- ) - default-flags swap assoc-union >r word-props r> update ; + [ word-props ] [ default-flags swap assoc-union ] bi* update ; : command-quot ( target command -- quot ) dup 1quotation swap +nullary+ word-prop