Merge pull request #489 from ohAitch/no-vale-noun

Don't erase types in (lake %noun), which should always suceed
This commit is contained in:
Ted Blackman 2017-12-11 17:00:36 -08:00 committed by GitHub
commit 44e9e16916
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1066,6 +1066,12 @@
|= {fit/? for/mark}
|= {cof/cafe sam/vase}
^- (bolt vase)
::
:: don't verify the product type when using the %noun mark, since
:: that would cast to *, which would prevent the product from
:: being used as a gate or other typed structure.
?: =(for %noun) (fine cof sam)
::
%+ cool |.(leaf+"ford: check {<[for bek `@p`(mug q.sam)]>}")
%+ cope (fang cof for)
|= {cof/cafe tux/vase}