Rust-like debug macro for Scheme

debug.scm

# Racket
(define-syntax (dbg! stx)
  (syntax-case stx ()
    [(_ expr)
     (with-syntax ([expr-str (format "~a" (syntax->datum #'expr))])
       #'(let ([result expr])
           (begin
             (printf "~a = ~a\n" expr-str result)
             result)))]))
             
# Guile
(define-syntax-rule (dbg! form)
  (let ((result form))
    (begin
      (format #t "~a = ~a~%" 'form result)
      result)))