impc:ti:callback   scheme


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

Implementation

(define impc:ti:callback
  (lambda (ast)
    `(let ((zold (llvm_peek_zone_stack))
           (znew (create_zone (* 1024 4))))
       (llvm_callback ,(car ast)
                      ,(cadr ast)
                      znew
                      ,@(map (lambda (x)
                               (impc:ti:first-transform `(zcopy ,x zold znew) #t))
                             (cddr ast)))
       void)))


Back to Index

Similar Entries