#lang scheme/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)