scheme-interpreter-story/debug.scm

#lang racket

(provide define/debug)

(define-syntax define/debug
  (syntax-rules ()
    ((define/debug (f arg ...) body ...)
     (define (f arg ...)
       (display `(f ,arg ...)) (newline) (newline)
       body ...))))