[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] Peculiar TinyCLOS specialization bit
From: |
Joel Reymont |
Subject: |
[Chicken-users] Peculiar TinyCLOS specialization bit |
Date: |
Thu, 30 Dec 2004 23:14:01 +0000 |
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