Skip to content

Instantly share code, notes, and snippets.

@ktakashi
Created January 23, 2017 08:04
Show Gist options
  • Save ktakashi/495b512902402379862e5ec8050cabdc to your computer and use it in GitHub Desktop.
Save ktakashi/495b512902402379862e5ec8050cabdc to your computer and use it in GitHub Desktop.
Initialisation with dummy name
#!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)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment