Documentation adjusted.
This commit is contained in:
@@ -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")
|
||||||
|
|||||||
Reference in New Issue
Block a user