hans/roos
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

all forms must work

Browse Source
This commit is contained in:
Hans Dijkema
2025-07-03 16:58:41 +02:00
parent 11dd6e8ce3
commit a565f0a6a0
2 changed files with 17 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
main.rkt
View File

@@ -153,13 +153,27 @@
'@is-a-roos-class
(if (eq? (car arg) '@roos-classname@)
(@roos-classname at ...)
(apply (@roos-caller at ...) arg))))))))
(apply (@roos-caller at ...) arg))))))
((_ (a . bb) (at ... . atb) self (supers ...) b ...)
(define (a . arg)
(roos1 (at ... . atb) self (supers ...) b ...)
(if (null? arg)
(a)
(if (eq? (car arg) '@roos-class?)
'@is-a-roos-class
(if (eq? (car arg) '@roos-classname@)
(@roos-classname at ... . atb)
(apply (@roos-caller at ... . atb) arg))))))
))
(define-syntax roos
(syntax-rules ()
((_ (a ...) self (supers ...) b ...)
(@roos-top (a ...) (a ...) self (supers ...) b ...))))
(@roos-top (a ...) (a ...) self (supers ...) b ...))
((_ (a ... . b) self (supers ...) c ...)
(@roos-top (a ... . b) (a ... . b) self (supers ...) c ...))
))
(define (roos-class? cl)