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

Small corrections

Browse Source
This commit is contained in:
Hans Dijkema
2025-07-09 19:54:54 +02:00
parent edc2c93236
commit 9b0cb1bae7
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
info.rkt
View File

@@ -1,7 +1,7 @@
#lang info
(define pkg-authors '(hnmdijkema))
(define version "0.8.2")
(define version "0.8.3")
(define license 'Apache-2.0)
(define collection "roos")
(define pkg-desc "A Simple (perl like) OO system for racket")

14
main.rkt
View File

@@ -382,12 +382,12 @@
(syntax-case stx ()
((_ this keyw)
(begin
(printf "mk-keyw: ~a" (syntax->datum #'keyw))
#'(hash-set! this 'init (lambda () #f))))
;(printf "mk-keyw: ~a" (syntax->datum #'keyw))
#'(hash-set! this 'keyw (lambda () #f))))
((_ this keyw body ...)
(begin
(printf "mk-keyw: ~a" (syntax->datum #'keyw))
#'(hash-set! this 'init (lambda () body ...))))
;(printf "mk-keyw: ~a" (syntax->datum #'keyw))
#'(hash-set! this 'keyw (lambda () body ...))))
))
(define-syntax (@@mk-body stx)
@@ -552,7 +552,7 @@
(@@mk-name cl)
(@@mk-member-infos body ...)
(@@mk-super-infos supers ...)
'cl))))
'(cl)))))
((_ (cl . a) this (supers ...) body ...)
(begin
(define (cl . a)
@@ -572,7 +572,7 @@
(@@mk-name cl)
(@@mk-member-infos body ...)
(@@mk-super-infos supers ...)
(cl a ...)))))
'(cl a ...)))))
((_ (cl a ... . b) this (supers ...) body ...)
(begin
(define (cl a ... . b)
@@ -582,7 +582,7 @@
(@@mk-name cl)
(@@mk-member-infos body ...)
(@@mk-super-infos supers ...)
(cl a ... . b)))))
'(cl a ... . b)))))
((_ cl this supers body ...)
(error (string-append
"Wrong roos definition\n"