Pull.sk.lo.put: def of emerging-ezjson@1.4.0.0
Import: import emerging-ezjson@1.4.0.0/src/pull.bend as Pull
Lines 1407-1422 of emerging-ezjson@1.4.0.0/src/pull.bend: https://jend.leeeet.dev/read.txt?path=emerging-ezjson@1.4.0.0/src/pull.bend&start_line=1407&end_line=1422

import Base
import emerging-ezjson@1.4.0.0/src/lex.bend as Lex

# one more hex digit of a skipped low surrogate, or the code point
def sk.lo.put(
  tl: String,
  left: Nat,
  acc: U32,
  hi: U32,
  dig: U32,
  stack: List<&2, Frame>,
  goal: Goal,
  done: Bool
) -> St:
  match left:
    case 0n:
      sk.lo.end(tl, stack, goal, done, Lex.unicode.sur((acc * 16 + dig : U32)))
    case 1n+p:
      S{MSkLo{p, (acc * 16 + dig : U32), hi}, stack, goal, done, False{}}

Uses (13):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.add
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.mul
  https://jend.leeeet.dev/definition.txt?path=emerging-ezjson@1.4.0.0/src/lex.bend&name=unicode.sur
  https://jend.leeeet.dev/definition.txt?path=emerging-ezjson@1.4.0.0/src/pull.bend&name=Frame
  https://jend.leeeet.dev/definition.txt?path=emerging-ezjson@1.4.0.0/src/pull.bend&name=Goal
  https://jend.leeeet.dev/definition.txt?path=emerging-ezjson@1.4.0.0/src/pull.bend&name=Mode
  https://jend.leeeet.dev/definition.txt?path=emerging-ezjson@1.4.0.0/src/pull.bend&name=St
  https://jend.leeeet.dev/definition.txt?path=emerging-ezjson@1.4.0.0/src/pull.bend&name=sk.lo.end