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

ui.tools.operations: making "See" an operation on words.

char-rename
John Benediktsson 2016-11-09 15:39:59 -08:00
parent 1abe794205
commit 7d92217551
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/tools/operations/operations.factor
View File

@ -3,7 +3,7 @@
USING: accessors combinators.short-circuit compiler.errors USING: accessors combinators.short-circuit compiler.errors
compiler.units continuations definitions destructors editors compiler.units continuations definitions destructors editors
help.topics io.pathnames io.styles kernel libc.private help.topics io.pathnames io.styles kernel libc.private
macros.expander models parser prettyprint quotations macros.expander models parser prettyprint quotations see
source-files.errors stack-checker threads tools.annotations source-files.errors stack-checker threads tools.annotations
tools.crossref tools.test tools.time tools.walker ui.commands tools.crossref tools.test tools.time tools.walker ui.commands
ui.gestures ui.operations ui.tools.browser ui.tools.deploy ui.gestures ui.operations ui.tools.browser ui.tools.deploy
@ -120,6 +120,10 @@ IN: ui.tools.operations
[ word? ] \ breakpoint H{ } define-operation [ word? ] \ breakpoint H{ } define-operation
[ word? ] \ see H{
{ +listener+ t }
} define-operation
GENERIC: com-stack-effect ( obj -- ) GENERIC: com-stack-effect ( obj -- )
M: quotation com-stack-effect infer. ; M: quotation com-stack-effect infer. ;