def look.word

emerging-ezjson@1.3.0.0 · src/pull.bend:511

import Base
import emerging-ezjson@1.3.0.0/src/value.bend as V

511# a word's first character. The buffer is that character, not the array behind it
512def look.word(+ch: Char, stack: List<&2, Frame>, goal: Goal, done: Bool, ok: Bool) -> St:
513  match ok:
514    case True{}:
515      S{MWord{ch <> [], 1, V.num.ok.step(V.NStart{}, Char.to_u32(ch))},
516        stack, goal, done, False{}}
517    case False{}:
518      err.st(goal)