definitions: Separate definition definitions.
parent
9dd0f84f07
commit
b4acfa376a
|
@ -58,4 +58,4 @@ H{
|
|||
: $tips-of-the-day ( element -- )
|
||||
drop tips get [ nl nl ] [ content>> print-element ] interleave ;
|
||||
|
||||
INSTANCE: tip definition
|
||||
INSTANCE: tip definition-mixin
|
||||
|
|
|
@ -7,7 +7,7 @@ IN: help.topics
|
|||
|
||||
TUPLE: link name ;
|
||||
|
||||
INSTANCE: link definition
|
||||
INSTANCE: link definition-mixin
|
||||
|
||||
MIXIN: topic
|
||||
|
||||
|
@ -81,4 +81,4 @@ M: f valid-article? drop t ;
|
|||
M: f article-title drop \ f article-title ;
|
||||
M: f article-content drop \ f article-content ;
|
||||
M: f article-parent drop \ f article-parent ;
|
||||
M: f set-article-parent drop \ f set-article-parent ;
|
||||
M: f set-article-parent drop \ f set-article-parent ;
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
USING: accessors assocs kernel namespaces sequences sets ;
|
||||
IN: definitions
|
||||
|
||||
MIXIN: definition
|
||||
MIXIN: definition-mixin
|
||||
|
||||
ERROR: no-compilation-unit definition ;
|
||||
|
||||
|
|
|
@ -135,7 +135,7 @@ SYMBOL: require-hook
|
|||
PREDICATE: runnable-vocab < vocab
|
||||
vocab-main >boolean ;
|
||||
|
||||
INSTANCE: vocab-spec definition
|
||||
INSTANCE: vocab-spec definition-mixin
|
||||
|
||||
: call-require-hook ( name -- )
|
||||
require-hook get call( name -- ) ;
|
||||
|
|
|
@ -256,4 +256,4 @@ M: word hashcode*
|
|||
|
||||
M: word literalize <wrapper> ;
|
||||
|
||||
INSTANCE: word definition
|
||||
INSTANCE: word definition-mixin
|
||||
|
|
Loading…
Reference in New Issue