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

ok

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-18 09:29:15 +02:00
parent 8c9251f5fc
commit 94a7160f14
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
class.rkt
View File

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

2
info.rkt
View File

@@ -1,7 +1,7 @@
#lang info #lang info
(define pkg-authors '(hnmdijkema)) (define pkg-authors '(hnmdijkema))
(define version "0.8.6") (define version "0.8.7")
(define license 'Apache-2.0) (define license 'Apache-2.0)
(define collection "roos") (define collection "roos")
(define pkg-desc "A Simple (perl like) OO system for racket") (define pkg-desc "A Simple (perl like) OO system for racket")