in-thread fix
parent
91a87c6fbe
commit
502c32b1f7
|
@ -42,7 +42,8 @@ namespaces queues sequences vectors ;
|
||||||
V{ } set-catchstack
|
V{ } set-catchstack
|
||||||
V{ } set-callstack
|
V{ } set-callstack
|
||||||
V{ } set-retainstack
|
V{ } set-retainstack
|
||||||
try stop
|
[ print-error ] recover
|
||||||
|
stop
|
||||||
] callcc0 drop ;
|
] callcc0 drop ;
|
||||||
|
|
||||||
: (idle-thread) ( fast? -- )
|
: (idle-thread) ( fast? -- )
|
||||||
|
|
Loading…
Reference in New Issue