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