akkartik/mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

240

Browse Source
This commit is contained in:
Kartik K. Agaram 2014-11-06 19:05:20 -08:00
parent c370c7d849
commit 9d4694088d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mu.arc
View File

@ -222,11 +222,6 @@
(wipe rep.routine*!call-stack)
((abort-routine*)))
(def sleep-for (delay)
(trace "run" "sleeping until " (+ curr-cycle* delay))
(= rep.routine*!sleep `(,(+ curr-cycle* delay) literal))
((abort-routine*)))
;; running a single routine
(mac v (operand) ; for value
`(,operand 0))
@ -491,7 +486,12 @@
assert
(assert (m arg.0))
sleep
(sleep-for (m arg.0))
(let operand arg.0
(assert (is ty.operand 'literal) "sleep can only handle literal deltas")
(let delay v.operand
(trace "run" "sleeping until " (+ curr-cycle* delay))
(= rep.routine*!sleep `(,(+ curr-cycle* delay) literal)))
((abort-routine*)))
; text interaction
cls