coops strangeness? part2 pasted by megane on Wed May 16 10:23:19 2012
(require-extension coops) (require-extension coops-introspection) (define-class <a> ()) (define a (make <a>)) (print a (instance-of? a <a>)) (define-class <a> ()) (print a (instance-of? a <a>)) ;; Output ;; #<coops instance of `<a>'>#t ;; #<coops instance of `<a>'>#f
coops strangeness? added by megane on Wed May 16 11:24:34 2012
(require-extension coops) (require-extension coops-introspection) (define-class <a> ()) (define a (make <a>)) (print "class of a = <a> : " (equal? (class-of a) <a>)) (print "(instance-of? a <a>): " (instance-of? a <a>)) (define-class <a> ()) (print "class of a = <a> : " (equal? (class-of a) <a>)) (print "(instance-of? a <a>): " (instance-of? a <a>)) ;; Output ;; class of a = <a> : #t ;; (instance-of? a <a>): #t ;; class of a = <a> : #t ;; (instance-of? a <a>): #f