gall: fix path in +mo-cyst

This commit is contained in:
Jared Tobin 2019-04-25 06:49:51 +12:00 committed by Jared Tobin
parent fbc5b351fc
commit 9fa4f44b8c
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4

View File

@ -411,13 +411,15 @@
?> ?=([%f %made *] sign-arvo)
?> ?=([@ @ @ @ @ ~] path)
::
=/ beak-path t.t.path
::
=/ =beak
=/ ship (slav %p i.t.t.path)
=/ desk i.t.t.t.path
=/ case [%da (slav %da i.t.t.t.t.path)]
=/ ship (slav %p i.beak-path)
=/ desk i.t.beak-path
=/ case [%da (slav %da i.t.t.beak-path)]
[p=ship q=desk r=case]
::
(mo-receive-core i.t.t.path beak result.sign-arvo)
(mo-receive-core i.t.path beak result.sign-arvo)
::
:: +mo-cyst-pel: translated peer.
::