Initialisation with dummy name

define-dummy.scm

#!r6rs
(import (rnrs))

(define-syntax define-dummy
  (syntax-rules ()
    ((_ body ...)
     (define dummy
       (begin
         body ...
         #t)))))

(define-syntax define-dummy/name
  (syntax-rules ()
    ((_ name body ...)
     (define name
       (begin
         body ...
         #t)))))