enables scry in +mule (by way of explicit nock 12 in +mute)

This commit is contained in:
Joe Bryan 2019-08-28 15:55:13 -07:00
parent ee84936add
commit 97d67e81fb
4 changed files with 7 additions and 7 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:6143926c8a07a3d2a38abf2be0d3d1ef46315bf1ae13b5401113082ddbe481ec
size 12650146
oid sha256:acd24dbae33439a2a2d6ad1658dd6a8a8aebd153ba19358340bd3a68febd3d03
size 11104450

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:42ae74a4f2997ff13ec9c9c19d2019ab44852dc8c69937d70d29607c4cefdf59
size 5882422
oid sha256:933d3437fa16c793ebd627d6d9121c47cef7ea28320ea5c4dc2fee5e14c3fd49
size 6114638

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:ccadeb320517eb506679198684eae00d0d37d28554de5c29f6de4a02b52b22ae
size 13599425
oid sha256:a54260504e4f96c64241e5a9d3df496d786b98a883a7d923ba824bfd0fc5f0dc
size 13679971

View File

@ -6470,7 +6470,7 @@
++ mute :: untyped virtual
|= taq/_=>(~ ^?(|.(**)))
^- (each * (list tank))
=+ ton=(mock [taq %9 2 %0 1] |=({* *} ~))
=/ ton (mock [taq %9 2 %0 1] |=((pair) ``.*(~ [%12 1+p 1+q])))
?- -.ton
$0 [%& p.ton]
$1 [%| (turn p.ton |=(a/* (smyt (path a))))]