defs-are-case-sensitive:useful — ordinary primitive
EXTENSIONS
DEFS-ARE-CASE-SENSITIVE
( -- )( | ); |
| ; |
accesses CURRENT which is generally the last wordlist that the DEFINITIONS shall go in. sets there a flag in the vocabulary-definition so that words are matched case-sensitive.
example:
VOCABULARY MY-VOC MY-VOC DEFINITIONS DEFS-ARE-CASE-SENSITIVE