Make :curl work again.

This commit is contained in:
C. Guy Yarvin 2014-03-03 13:55:40 -08:00
parent a0654094b1
commit 231a702852

View File

@ -1178,6 +1178,21 @@
== ==
-- --
:: ::
++ feel :: simple file write
|= [pax=path val=*] !:
^- miso
=+ dir=((hard arch) .^(%cy pax))
?~ q.dir [%ins val]
:- %mut
^- udon
[%a %a .^(%cx pax) val]
::
++ file :: simple file load
|= pax=path
^- (unit)
=+ dir=((hard arch) .^(%cy pax))
?~(q.dir ~ [~ .^(%cx pax)])
::
++ glam ++ glam
|= zar=@p ^- tape |= zar=@p ^- tape
%+ snag zar %+ snag zar