mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
20 lines
279 B
Scheme
20 lines
279 B
Scheme
;-*-Scheme-*-
|
|
|
|
(test-setup 20 #f)
|
|
|
|
(defsmacro test-macro (x)
|
|
;; goos macro
|
|
`(+ ,x 2)
|
|
)
|
|
|
|
(defmacro test-macro (x)
|
|
;; goal macro which calls a goos macro of the same name
|
|
(let ((goos-expansion (test-macro x)))
|
|
`(+ ,goos-expansion 3)
|
|
)
|
|
)
|
|
|
|
(test-macro 15)
|
|
|
|
|