Welcome to the CHICKEN Scheme pasting service

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
[ permalink | raw ]

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
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What does `(string-chomp "foobar")' produce?
Visually impaired? Let me spell it for you (wav file) download WAV