Don't run nest checks in clay, either.

This commit is contained in:
Elliot Glaysher 2018-12-03 13:22:39 -08:00
parent 841b023671
commit 7185d02929

View File

@ -3702,23 +3702,16 @@
^? :: opaque core
|% ::
++ call :: handle request
|= $: hen/duct
hic/(hypo (hobo task:able))
==
=* req q.hic
=> %= . :: XX temporary
req
^- task:able
?: ?=($soft -.req)
=+
~|([%bad-soft (@t -.p.req)] ((soft task:able) p.req))
?~ -
~& [%bad-softing (@t -.p.req)] !!
u.-
?: (~(nest ut -:!>(*task:able)) | p.hic) req
~& [%clay-call-flub (@tas `*`-.req)]
((hard task:able) req)
|= $: hen=duct
type=*
wrapped-task=(hobo task:able)
==
::
=/ req=task:able
?. ?=(%soft -.wrapped-task)
wrapped-task
((hard task:able) p.wrapped-task)
::
^+ [*(list move) ..^$]
?- -.req
$boat