callback   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

;; send tasks for normal execution as callback tasks
(define (callback time func . args)
  (let ((payload (if (symbol? func)
         (cons callback-adapter (cons func args))
           (cons func args))))
  (call-cpp-at-time time 2 *callback* payload (current-environment))))


Back to Index

Similar Entries