Documentation adjusted.

This commit is contained in:
2025-07-08 17:00:17 +02:00
parent 427629344e
commit 652b58a4ce

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))
@@ -69,7 +69,7 @@ Returns the defined roos class of an instantiated roos class if @code{roos-objec
((_ c d ...) ((_ c d ...)
c))) c)))
(define bb (-* b1)) (define bb (-! b1))
(: (-> bb g 2) "(-> bb g 2) Will return the value of (* 2 y of class b1)") (: (-> bb g 2) "(-> bb g 2) Will return the value of (* 2 y of class b1)")
(: (-> bb y! 7) "(-> bb y! 7) Will set y in class b1 to 7") (: (-> bb y! 7) "(-> bb y! 7) Will set y in class b1 to 7")