@@ -118,7 +118,47 @@ apex
118118 |* closing=rule
119119 ;~ pfix
120120 (punt nl)
121− %- star ;~(less closing next)
121+ %- star
122+ ;~ less closing
123+ ;~ pose
124+ %+ cold '\07' (jest '\\a')
125+ %+ cold '\08' (jest '\\b')
126+ %+ cold '\0c' (jest '\\f')
127+ %+ cold '\0a' (jest '\\n')
128+ %+ cold '\0d' (jest '\\r')
129+ %+ cold '\09' (jest '\\t')
130+ %+ cold '\0b' (jest '\\v')
131+ %+ cold '\\' (jest '\\\\')
132+ %+ cold '"' (jest '\\"')
133+ %+ cold '\'' (jest '\\\'')
134+ %+ cold '\0a' (jest '\\\0a')
135+ %+ cold '' ;~(pose (jest '\\z') (plus gaw))
136+ ::
137+ ;~ pfix
138+ (jest '\\x')
139+ ;< hex-digits=tape bind ;~(plug next next (easy ~))
140+ =/ digit=(unit @) (rust hex-digits hex)
141+ ?~ digit fail (easy `@t`u.digit)
142+ ==
143+ ::
144+ ;~ pfix
145+ (jest '\\')
146+ ;< digits=tape bind (stun [1 3] (shim '0' '9'))
147+ =/ digit=(unit @) (rust digits dem)
148+ ?~ digit fail (easy `@t`u.digit)
149+ ==
150+ ::
151+ %+ cook
152+ |= [* point=@ *] `@t`point
153+ ;~ plug
154+ (jest '\\u{')
155+ hex
156+ (just '}')
157+ ==
158+ ::
159+ next
160+ ==
161+ ==
122162 ==
123163 ==
124164++ parse-table
@@ -820,7 +860,7 @@ apex
820860 |* [=term gar=mold sef=rule]
821861 |= tub=nail
822862 ^- (like gar)
823− =/ trace &
863+ =/ trace |
824864 ~? trace [p.p.tub term `tape`(scag 40 q.tub)]
825865 =/ res (sef tub)
826866 ?. trace res