feat: add pigibrack macro expansion tool

This commit is contained in:
2026-04-04 11:06:56 +02:00
parent b03b2e0eca
commit 202f0a6701
4 changed files with 112 additions and 1 deletions

16
playground/macros.scm Normal file
View File

@@ -0,0 +1,16 @@
(define-module (playground macros)
#:export (inc unless* demo))
(define-syntax-rule (inc x)
(+ x 1))
(define-syntax unless*
(syntax-rules ()
((_ test body ...)
(if (not test)
(begin body ...)))))
(define (demo x)
(unless* (> x 0)
(display "non-positive"))
(inc x))