Skip to content

Instantly share code, notes, and snippets.

@brv00

brv00/ifdef.scm

Last active February 18, 2019 04:40
Show Gist options
  • Save brv00/283255d7cb8e086db94b723c4de96341 to your computer and use it in GitHub Desktop.
Save brv00/283255d7cb8e086db94b723c4de96341 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ifdef.scm
; JScheme でファイルの循環参照をCっぽく防ぐマクロ
(define-macro (ifdef tag . body)
`(if (,.isDefined ',tag)
(begin . ,body)))
(define-macro (ifndef tag . body)
`(or (,.isDefined ',tag)
(begin . ,body)))
(define-macro (undef tag)
`(set! ,tag U.UNDEFINED$))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment