clay: explicitly ask dill to print changelist

Instead of emitting a "debug message" gift and hoping dill picks it up
for printing.
This commit is contained in:
fang 2021-03-31 22:28:22 +02:00
parent 49a991e40e
commit 7e2cc77ae0
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
3 changed files with 6 additions and 9 deletions

View File

@ -741,7 +741,6 @@
[%hill p=(list @tas)] :: mount points
[%done error=(unit error:ames)] :: ames message (n)ack
[%mere p=(each (set path) (pair term tang))] :: merge result
[%note p=@tD q=tank] :: debug message
[%ogre p=@tas] :: delete mount point
[%rule red=dict wit=dict] :: node r+w permissions
[%writ p=riot] :: response

View File

@ -310,7 +310,10 @@
task ::
== ::
$: %d :: to %dill
$>(%flog task:dill) ::
$> $? %flog ::
%text ::
== ::
task:dill ::
== ::
$: %g :: to %gall
$>(%deal task:gall) ::
@ -334,7 +337,6 @@
== == ::
$: %clay ::
$> $? %mere ::
%note ::
%writ ::
== ::
gift ::
@ -1788,7 +1790,8 @@
|= [prefix=@tD paths=(set path)]
%+ turn ~(tap in paths)
|= =path
[u.hun %give %note prefix (path-to-tank path)]
^- move
[u.hun %pass /note %d %text prefix ' ' ~(ram re (path-to-tank path))]
::
++ path-to-tank
|= =path
@ -4458,7 +4461,6 @@
q.p.p.+.hin
[~ ..^$]
::
%note [[hen %give +.hin]~ ..^$]
%wake
:: TODO: handle behn errors
::

View File

@ -70,7 +70,6 @@
== == ::
$: %clay ::
$> $? %mere ::
%note ::
%writ ::
== ::
gift:clay ::
@ -262,9 +261,6 @@
(dump:(crud %reap u.p.p.+>.sih) %logo ~)
%fact (from ;;(dill-blit q:`vase`+>+>.sih))
==
::
[%clay %note *]
(fore (tuba p.sih ' ' ~(ram re q.sih)) ~)
::
[?(%behn %clay) %writ *]
init