A
(define-syntax while
(syntax-rules ()
((while condition body ...)
(let loop ()
(when condition
body ...
(loop)
)
)
)
)
)
вот чё за (let loop () ... )? в доках let несколько иначе выглядит
Size: a a a
A
(define-syntax while
(syntax-rules ()
((while condition body ...)
(let loop ()
(when condition
body ...
(loop)
)
)
)
)
)
b⛅
b⛅
БР
БР
OH
b⛅
OH
b⛅
F
MS
F
b⛅
A
(define-syntax list-of-two-quoted
(syntax-rules ()
((_ e) (list 'e 'e))))
(print (list-of-two-quoted jjj))
; '(jjj jjj)
b⛅
(define-syntax list-of-two-quoted
(syntax-rules ()
((_ e) (list 'e 'e))))
(print (list-of-two-quoted jjj))
; '(jjj jjj)
IG
a
A
a