ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-03 04:40:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

cleans up %behn state management, fixes reloading

Browse Source
This commit is contained in:
Joe Bryan 2018-11-26 12:41:08 -05:00
parent f3d3a2f709
commit e98ddea39b
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
sys/vane/behn.hoon
View File

@ -18,8 +18,9 @@
+$ note ~ :: out request $->
+$ sign ~ :: in result $<-
+$ clok (broq @da duct) :: stored timers
+$ coke $~ [%0 ~ ~]
$: $0 :: all state
+$ coke $~ [%0 ~ ~ ~] :: all state
$: $0 :: version number
gad/duct :: duct to unix
tym/{p/clok q/clok} :: positive+negative
== ::
--
@ -145,10 +146,8 @@
--
--
. ==
=| $: $0 ::
gad/duct :: duct to unix
tym/{p/clok q/clok} :: positive+negative
== ::
=| coke :: persistent state
=* state - ::
|= {now/@da eny/@ ski/sley} :: current invocation
^?
|% :: poke+peek pattern
@ -224,9 +223,9 @@
~
::
++ load
|= old/{$0 tym/{clok clok}}
|= old=coke
^+ ..^$
..^$(tym tym.old)
..^$(state old)
::
++ scry
|= {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path}
@ -240,7 +239,7 @@
[~(get up p.tym) $(p.tym ~(pop up p.tym))]
[~ ~ %tank !>(>liz<)]
::
++ stay [%0 tym]
++ stay state
++ take :: process move
|= {tea/wire hen/duct hin/(hypo sign)}
^+ [p=*(list move) q=..^$]