MyLittleCleanupTest   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/tests/core/xtlang.xtm

Implementation

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; a little test for zone cleanup
;;
(bind-func MyLittleCleanupTest
  (lambda ()
    (let ((tmp2:i8* (alloc 8)))
      (zone_cleanup (println "Clean up before leaving zone!"))
      tmp2)))


Back to Index