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

Scribblibgs

Browse Source
This commit is contained in:
Hans Dijkema
2025-07-06 16:04:40 +02:00
parent 7f5879898a
commit e8857cd3b3
2 changed files with 4 additions and 4 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.51") (define version "0.52")
(define license 'Apache-2.0) (define license 'Apache-2.0)
(define collection "roos") (define collection "roos")
(define pkg-desc "An OO Framework for Racket") (define pkg-desc "An OO Framework for Racket")

6
scribblings/roos.scrbl
View File

@@ -46,7 +46,7 @@ Returns the defined roos class of an instantiated roos class if @code{roos-objec
(y ( + x 4)) (y ( + x 4))
((g a) (* a (-> this y)))) ((g a) (* a (-> this y))))
(def-roos (b1) this (supers (a 6)) (def-roos (b1) this (supers (-* a 6))
((v . a) (if (null? a) ((v . a) (if (null? a)
(-> supers y) (-> supers y)
(begin (begin
@@ -54,11 +54,11 @@ Returns the defined roos class of an instantiated roos class if @code{roos-objec
(-> supers y)))) (-> supers y))))
(y 55)) (y 55))
(def-roos (b2) this (supers (a 5)) (def-roos (b2) this (supers (-* a 5))
((v2) (-> supers y)) ((v2) (-> supers y))
((v2*) (-> this y))) ((v2*) (-> this y)))
(def-roos (c) this (supers (b1) (b2)) (def-roos (c) this (supers (-* b1) (-* b2))
((zy) (-> supers y)) ((zy) (-> supers y))
((z1) (-> supers v)) ((z1) (-> supers v))
((z2) (-> supers v2)) ((z2) (-> supers v2))