mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
Printf.
This commit is contained in:
parent
1d09626776
commit
ecc39e0fef
@ -918,7 +918,11 @@
|
||||
?~ q.yop ~
|
||||
?~(t.q.yop `i.q.yop `[%mor (flop `(list sole-effect)`q.yop)])
|
||||
==
|
||||
?~(foc moz [[ost %diff %sole-effect u.foc] moz])
|
||||
?~ foc
|
||||
moz
|
||||
~& [%ra-abed-fx-mug `@p`(mug u.foc)]
|
||||
~& [%ra-abed-fx u.foc]
|
||||
[[ost %diff %sole-effect u.foc] moz])
|
||||
::
|
||||
++ ra-abet :: complete core
|
||||
ra-abed:ra-axel
|
||||
|
@ -179,6 +179,7 @@
|
||||
++ diff-sole-effect-phat ::
|
||||
|= [way=wire fec=sole-effect]
|
||||
=< se-abet =< se-view
|
||||
~& [%diff-effect `@p`(mug fec)]
|
||||
=+ gyl=(drum-phat way)
|
||||
?: (se-aint gyl) +>.$
|
||||
(se-diff gyl fec)
|
||||
|
Loading…
Reference in New Issue
Block a user