Remove writ from ++waft.

This commit is contained in:
C. Guy Yarvin 2014-05-16 13:57:49 -07:00
parent 67ab019da8
commit 9b1507d0f9
4 changed files with 4 additions and 5 deletions

View File

@ -1537,7 +1537,7 @@
?> |(=(%pr cak) =(%pc cak))
[[%e `path`t.t.t.q.q.bon] hen]
[[ven `path`t.t.t.q.q.bon] t.neh]
`card`[%waft q.p.bon r.bon]
`card`[%waft p.bon r.bon]
==
?> ?=(%q i.q.q.bon)
?> ?=([@ *] t.q.q.bon)
@ -1639,7 +1639,6 @@
(~(czar am [now fox]) p.fav q.fav)
::
%want
?> ?=(^ wru)
(~(wise am [now fox]) p.fav hen q.fav r.fav)
::
%wake

View File

@ -412,7 +412,7 @@
=< abet
=< wake
%. [inx ((hard riot) q.fav)]
knit:(do:(un q.u.wru now ruf) p.fav syd)
knit:(do:(un p.p.fav now ruf) q.p.fav syd)
[mos ..^$]
::
%warp

View File

@ -287,7 +287,7 @@
%waft
?. ?=([%hork @ ~] tea)
+.$
(gosh p.fav (need (slaw %ud i.t.tea)) ((hard httr) q.fav))
(gosh q.p.fav (need (slaw %ud i.t.tea)) ((hard httr) q.fav))
::
%went
+.$

View File

@ -1943,7 +1943,7 @@
[%volt p=*] :: current kernel
[%wait p=@da q=path] :: timer wait
[%wake ~] :: timer activate
[%waft p=ship q=*] :: response message
[%waft p=sock q=*] :: response message
[%want p=sock q=path r=*] :: send message
[%warn p=tape] :: syslog
[%warp p=ship q=riff] :: file request