type variance bug fix

This commit is contained in:
joshuareagan 2018-12-05 22:23:36 -06:00
parent 2001d39360
commit b8a4ab3f10

View File

@ -9762,13 +9762,17 @@
++ felt
~/ %felt
|= lap/opal
!:
^- type
?- -.lap
%& p.lap
%| %- fire
%| %- fork
%+ turn ~(tap in q.lap)
|= {a/type b/foot}
[a [%dry %$ 1]]
|= [a=type b=foot]
:- %hold
?. ?=([%core *] a) !!
=+ dox=[%core q.q.a q.a]
[dox [%$ 1]]
==
:: ::
++ feel :: detect existence