steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cleanup

db4
Slava Pestov 2008-04-19 20:40:04 -05:00
parent 0ae748d9ba
commit 4ce7ddb27d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/ui/commands/commands.factor
View File

@ -66,7 +66,7 @@ M: word command-description ( word -- str )
H{ { +nullary+ f } { +listener+ f } { +description+ f } } ; H{ { +nullary+ f } { +listener+ f } { +description+ f } } ;
: define-command ( word hash -- ) : 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 ) : command-quot ( target command -- quot )
dup 1quotation swap +nullary+ word-prop dup 1quotation swap +nullary+ word-prop