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