Lines Matching refs:terse

15 (provide planet-terse-register
16          planet-terse-log
17          planet-terse-set-key) 
19 (define terse-log-message-chan (make-channel))
20 (define terse-log-proc-chan (make-channel))
30            terse-log-message-chan
41            terse-log-proc-chan
51 (define (planet-terse-log id str)
53     (sync (channel-put-evt terse-log-message-chan (list (thread-cell-ref log-key-tc) id str))))
56 (define (planet-terse-register proc)
57   (sync (channel-put-evt terse-log-proc-chan (list (thread-cell-ref log-key-tc) proc)))
60 (define (planet-terse-set-key new-key)