Paste: already-unregistered

Author: Leonidas
Mode: factor
Date: Wed, 14 Jul 2010 22:34:40
Plain Text | 
(U) Quotation: [ set-namestack init-catchstack self quot>> call -> stop ]
(O) Word: listener-thread
(O) Word: listener
(O) Word: (listener)
(U) Quotation: [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call datastack ] dip -> swap [ set-datastack ] dip
    ]
(U) Quotation: [ call -> datastack ]
(O) Word: exit
(O) Word: do-hooks
(U) Quotation: [ do-always-destructors -> do-error-destructors ]
(O) Word: dispose-each
(O) Word: free
(O) Word: unregister-disposable
(O) Word: already-unregistered
(O) Method: M\ object throw
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global rethrow
    ]

New Annotation

Summary:
Author:
Mode:
Body: