clay: dome->domo, compilation still fails though

This commit is contained in:
Ted Blackman 2023-03-21 14:59:34 -06:00
parent 817125ba51
commit 03b3f75ae1

View File

@ -1,3 +1,4 @@
!:
:: clay (4c), revision control
::
:: The way to understand Clay is to take it section-by-section:
@ -4399,7 +4400,7 @@
::
++ read-v
|= [tak=tako pax=path]
^- (unit (unit [%dome (hypo dome:clay)]))
^- (unit (unit [%dome (hypo domo:clay)]))
=/ yon=aeon (tako-to-aeon:ze tak)
?: (lth yon let.dom)
:* ~ ~ %dome -:!>(*domo)