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 #lang info
(define pkg-authors '(hnmdijkema)) (define pkg-authors '(hnmdijkema))
(define version "0.8.2") (define version "0.8.3")
(define license 'Apache-2.0) (define license 'Apache-2.0)
(define collection "roos") (define collection "roos")
(define pkg-desc "A Simple (perl like) OO system for racket") (define pkg-desc "A Simple (perl like) OO system for racket")

14
main.rkt
View File

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