] keep ;
MEMO: modes ( -- modes )
- "resource:basis/xmode/modes/catalog"
+ "vocab:xmode/modes/catalog"
file>xml parse-modes-tag ;
MEMO: mode-names ( -- modes )
MEMO: (load-mode) ( name -- rule-sets )
modes at [
file>>
- "resource:basis/xmode/modes/" prepend
+ "vocab:xmode/modes/" prepend
utf8 <file-reader> parse-mode
] [
"text" (load-mode)