: $tips-of-the-day ( element -- )
drop tips get [ nl nl ] [ content>> print-element ] interleave ;
-INSTANCE: tip definition
+INSTANCE: tip definition-mixin
TUPLE: link name ;
-INSTANCE: link definition
+INSTANCE: link definition-mixin
MIXIN: topic
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 ;
\ No newline at end of file
+M: f set-article-parent drop \ f set-article-parent ;
USING: accessors assocs kernel namespaces sequences sets ;
IN: definitions
-MIXIN: definition
+MIXIN: definition-mixin
ERROR: no-compilation-unit definition ;
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 -- ) ;
M: word literalize <wrapper> ;
-INSTANCE: word definition
+INSTANCE: word definition-mixin