zuse: de-xml:html handles declarations as in spec

This commit is contained in:
Liam Fitzgerald 2020-09-01 01:57:54 +10:00
parent b5f64715f4
commit 5020223ff2
2 changed files with 5 additions and 4 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:7198c05335b7c6f04ced0edfe90e475dfdc87dea62cabc4993d9860c70b29915
size 6295404
oid sha256:c61d44c8cf9e09b07ff0df4c65a491851f33afd6ad70d558de9b55614abd704c
size 6282949

View File

@ -6311,9 +6311,10 @@
|_ ent/_`(map term @t)`[[%apos '\''] ~ ~]
:: :: ++apex:de-xml:html
++ apex :: top level
=+ spa=;~(pose comt whit decl)
=+ spa=;~(pose comt whit)
%+ knee *manx |. ~+
%+ ifix [(star spa) (star spa)]
%+ ifix
[;~(plug (punt decl) (star spa)) (star spa)]
;~ pose
%+ sear |=({a/marx b/marl c/mane} ?.(=(c n.a) ~ (some [a b])))
;~(plug head many tail)