Merge remote-tracking branch 'origin/philip/behn-fix' into release/hotfix

behn: fix +unset-timer
This commit is contained in:
Philip Monk 2020-05-28 18:37:39 -07:00
commit d49e8adc08
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -250,12 +250,11 @@
=/ dux (find-ducts date.t)
|- ^- [found=? dux=(qeu ^duct)]
?~ dux |+~
=/ [top=^duct lef=(qeu ^duct) rih=(qeu ^duct)] dux
=> .(dux `(qeu ^duct)`dux) :: TMI
?: =(duct.t top) &+~(nip to dux)
=^ found-left=? dux $(dux lef)
?: =(duct.t n.dux) &+~(nip to `(qeu ^duct)`dux)
=^ found-left=? l.dux $(dux l.dux)
?: found-left &+dux
$(dux rih)
=^ found-rite=? r.dux $(dux r.dux)
[found-rite dux]
?. found timers.state
?: =(~ dux)
+:(del:timer-map timers.state date.t)