no-doctors.rkt
#lang racket/base

(define (drscheme?)
   (let-values (((base name is-dir?)
                 (split-path (find-system-path 'run-file))))
     (equal? (path->string name) "drscheme")))

(define (with-no-doctors next) (when (not (drscheme?)) (next)))

(provide drscheme? with-no-doctors)