racket - 用于调试的条件要求和定义

Question

我想在代码中打开和关闭调试，因此我尝试在模块顶部执行类似的操作...

(define DEBUGGING #f)
(if DEBUGGING
    (require unstable/debug)
    (define (debug x) void))

但是我不能在条件中require或define。我快速浏览了 dynamic-require 但不知道如何解决问题。

Answer 1

首先将DEBUGGING定义为在扩展时使用的变量，而不是运行时:

(define-for-syntax DEBUGGING #f)

然后创建一个宏，例如

(define-syntax (if-debug stx)
  (let ((dat (syntax->datum stx)))
    (if DEBUGGING
        (datum->syntax stx (cadr dat))
        (datum->syntax stx (caddr dat)))))

最后使用 as

(if-debug
   (require unstable/debug)
   (define (debug x) void))