ok

2025-08-18 09:29:15 +02:00
parent 8c9251f5fc
commit 94a7160f14
2 changed files with 4 additions and 4 deletions
--- a/class.rkt
+++ b/class.rkt
@@ -74,7 +74,7 @@

  (def-roos (t x) this (supers)
    (y x)
-    ((f a) (* (-> this y) a))
+    ((f a) (* (%-> this y) a))
    )
  
  (check-true
@@ -85,11 +85,11 @@
  (check-true
   (let ((cl (t% 6)))
     (let ((o (new cl)))
-       (= (-> o f 3) 18))))
+       (= (%-> o f 3) 18))))

  (check-true
   (let ((o (new t 8)))
-     (= (-> o f 4) 32)))
+     (= (%-> o f 4) 32)))

  (check-true
   (= (send (new t 4) f 2) 8))