def tag.short
import yaml-for-bend@0.1.1.0/scan.bend as Scanimport Base
import yaml-for-bend@0.1.1.0/token.bend as T
1203# "!suffix", "!!suffix", "!name!suffix", or "!" alone.
1204def tag.short(w: Taken, +st: Sc, +at: T.Mark) -> Step:
1205 match w:
1206 case Taken{+word, +k}:
1207 +s = String.drop(sc.s(st), 1n)
1208 +named = Char.is_eq(peek(s, k), '!')
1209 tag.suffix(tag.chars(String.drop(s, Bool.pick(Nat, named, 1n+k, 0n)), False{}, 0n), named, word, k, st, at)