Modern structure assembly.

This commit is contained in:
C. Guy Yarvin 2018-03-18 15:59:22 -07:00
parent 6290b74878
commit 4ac0a63233
2 changed files with 4 additions and 4 deletions

View File

@ -7064,9 +7064,9 @@
:: constant
::
{$leaf *}
:: %- decorate
:: :+ %wtgr
:: [%dtts fetch [%rock %$ q.mod]]
%- decorate
:+ %wtgr
[%dtts fetch [%rock %$ q.mod]]
[%rock p.mod q.mod]
::
:: subjective

View File

@ -1411,7 +1411,7 @@
=. s.bem [for s.bem]
%+ tug:bo (load-arch cof bem)
|= {cof/cafe arc/arch}
(new:bo cof (bind fil.arc $~))
(new:bo cof (bind fil.arc |=(* ~)))
::
++ lace :: load file
|= {cof/cafe for/mark bem/beam}