From: Slava Pestov Date: Sat, 28 Feb 2009 20:42:56 +0000 (-0600) Subject: Merge branch 'for-slava' of git://git.rfc1149.net/factor X-Git-Tag: 0.94~1877^2~102 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=78ce670101b7eaf6d1f775165a274c469d1cb56e Merge branch 'for-slava' of git://git.rfc1149.net/factor --- 78ce670101b7eaf6d1f775165a274c469d1cb56e diff --cc basis/threads/threads.factor index 8556167009,e168653f1d..3f4267df15 --- a/basis/threads/threads.factor +++ b/basis/threads/threads.factor @@@ -115,10 -115,10 +115,10 @@@ DEFER: sto sleep-queue [ dup expire-sleep? ] [ dup heap-pop drop expire-sleep ] - [ ] while + while drop ; -: start ( namestack thread -- ) +: start ( namestack thread -- * ) [ set-self set-namestack