xtmtest-compile   macro


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

Implementation

(define-macro (xtmtest-compile form)
  `(let ((func-sym (quote ,(cadr form))))
     (print-with-colors 'cyan 'default #t (print "xtmtest "))
     (print-with-colors 'black 'cyan #t (print "" func-sym ""))
     (println)
     (catch (xtmtest-update-test-result func-sym 'no-compile 'compile-only #f #f)
            (eval ',form (interaction-environment))
            (xtmtest-update-test-result func-sym 'correct 'compile-only #t #t))))


Back to Index

Similar Entries