Syntax addPrototype: #Mode derivedFrom: {Syntax Annotation}.
"Modes are nodes that control the interpretation of the expression they annotate."
Syntax Mode addImmutableSlot: #Primitive valued: #Primitive.
"Mode describing code performing primitive operations."
Syntax Mode addImmutableSlot: #Slate valued: #Slate.
"Mode describing standard Slate code."
Syntax Mode addSlot: #mode valued: Syntax Mode Slate.
"The mode of interpretation for the contained node."

node@(Syntax Node traits) primitiveMode
[| mode |
  mode: Syntax Mode clone.
  mode mode: Syntax Mode Primitive.
  mode value: node.
  mode
].

node@(Syntax Node traits) slateMode
[| mode |
  mode: Syntax Mode clone.
  mode mode: Syntax Mode Slate.
  mode value: node.
  mode
].