From 652b58a4cea5713d3a6fed0fb01d7b1ccd6cf732 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 8 Jul 2025 17:00:17 +0200 Subject: [PATCH] Documentation adjusted. --- scribblings/roos.scrbl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scribblings/roos.scrbl b/scribblings/roos.scrbl index b400530..9d0b9f4 100644 --- a/scribblings/roos.scrbl +++ b/scribblings/roos.scrbl @@ -46,7 +46,7 @@ Returns the defined roos class of an instantiated roos class if @code{roos-objec (y ( + x 4)) ((g a) (* a (-> this y)))) - (def-roos (b1) this (supers (-* a 6)) + (def-roos (b1) this (supers (-! a 6)) ((v . a) (if (null? a) (-> supers y) (begin @@ -54,11 +54,11 @@ Returns the defined roos class of an instantiated roos class if @code{roos-objec (-> supers y)))) (y 55)) - (def-roos (b2) this (supers (-* a 5)) + (def-roos (b2) this (supers (-! a 5)) ((v2) (-> supers y)) ((v2*) (-> this y))) - (def-roos (c) this (supers (-* b1) (-* b2)) + (def-roos (c) this (supers (-! b1) (-! b2)) ((zy) (-> supers y)) ((z1) (-> supers v)) ((z2) (-> supers v2)) @@ -69,7 +69,7 @@ Returns the defined roos class of an instantiated roos class if @code{roos-objec ((_ c d ...) c))) - (define bb (-* b1)) + (define bb (-! 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")