ui.commands: don't need to \ .
parent
e26493b97b
commit
60d7d84b56
|
@ -1,8 +1,7 @@
|
||||||
! Copyright (C) 2006, 2008 Slava Pestov.
|
! Copyright (C) 2006, 2008 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors arrays definitions kernel sequences strings
|
USING: accessors assocs fry kernel make quotations sequences
|
||||||
math assocs words generic make quotations splitting
|
splitting tr ui.gestures unicode.case unicode.categories words ;
|
||||||
ui.gestures unicode.case unicode.categories tr fry ;
|
|
||||||
IN: ui.commands
|
IN: ui.commands
|
||||||
|
|
||||||
SYMBOL: +nullary+
|
SYMBOL: +nullary+
|
||||||
|
@ -22,7 +21,7 @@ GENERIC: command-description ( command -- str/f )
|
||||||
GENERIC: command-word ( command -- word )
|
GENERIC: command-word ( command -- word )
|
||||||
|
|
||||||
: <command-map> ( blurb commands -- command-map )
|
: <command-map> ( blurb commands -- command-map )
|
||||||
{ } like \ command-map boa ;
|
{ } like command-map boa ;
|
||||||
|
|
||||||
: commands ( class -- hash )
|
: commands ( class -- hash )
|
||||||
dup "commands" word-prop [ ] [
|
dup "commands" word-prop [ ] [
|
||||||
|
|
Loading…
Reference in New Issue