make subs boot again

This commit is contained in:
Philip C Monk 2015-03-31 15:52:47 -04:00
parent 21e3d981d4
commit ca85c9728e

View File

@ -1255,7 +1255,7 @@
=+ tak=(~(get by hit.dom) yon)
?~ tak
~
?: =(yon let.dom)
?: &(?=(~ ref) =(yon let.dom))
`(bind q.ank:(descend-path:(zu ank.dom) pax) (corl (cury same %&) tail))
=+ yak=(tako-to-yaki u.tak)
=+ lob=(~(get by q.yak) pax)
@ -1264,7 +1264,7 @@
=+ mar=(lobe-to-mark u.lob)
?. ?=(?(%hoon %hook) mar)
[~ ~ %| (lobe-to-silk pax u.lob)]
:^ ~ %& ~
:^ ~ ~ %&
:+ mar [%atom %t]
|- ^- @t :: (urge cord) would be faster
=+ bol=(lobe-to-blob u.lob)