[Chicken-users] Peculiar TinyCLOS specialization bit

[Joel Reymont]

Try running the following code:

(require 'tinyclos)

(define-class <a> () ())
(define-class <b> (<a>) ())
(define-method (foo (self <b>) (a <a>)) #f)
(define b (make <b>))
(foo b #f)

You will get "Error: call-next-method: no methods left: #<procedure>"
since method foo is expecting an object as it's second argument and is
getting #f.

I think it should pass, though. Am I missing something?

    Thanks, Joel

-- 
OpenPoker: The Linux of poker software
http://wagerlabs.com/forums
* Tenerife * Canary Islands * Spain