xtlangClosure   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/core/native_dll.xtm

Implementation

;; this is NOT a standard C call site
;; so don't try calling this from C
(bind-func xtlangClosure
  (let ((inc 0))
    (lambda (x:i64)
      (set! inc (+ inc 1))
      (+ x inc))))


Back to Index