spawn lazy primises

spawn-lazy-promises.ls

next-i = do ->
  j = 1
  (i) -> 
    success, reject <- new Promise _
    success i + j
    

spawn = (gen) ->
  success, reject <- new Promise _
  next = (last) ->
    {value, done} = gen.next last
    return value.then next, reject if not done
    success value
    
  next!
    
# next-i 2 .then -> console.log it

do-some-work = ->*
  s1 = yield next-i 10
  s2 = yield next-i s1
  return s1 + s2
  
  
spawn do-some-work! .then -> 
  console.log "***", it