Problem with (eq? ...) and Serveez

[Roland Besserer]

Hi,

I'm at a loss why the code below fails running in serveez
with guile (1.6.x and 1.4.x):

I have a serveez server implemented in guile. Serveez uses a 'sock'
object as an argument to certain callback functions. In one such
callback function I add the 'sock' argument to a list:

(define bcs '())

....

(define (callback-fn1 server sock)
        ...
        (set! bcs (cons sock bcs))
        ...
)

later, in another callback function, I want to remove the 'sock' object:

(define (callback-fn2 sock req len)
        ...
        (set! bcs (remove-if (lambda (x) (eq? x sock)) bcs))
        ...
)

remove-if fails because eq? always returns #f for the comparison case.
I tested eq? against a number of cases and got the following results:

(set! bcs sock)
(eq? bcs sock)  -->  #t
(display sock)  -->  #<svc-socket f1808>
(display bcs)   -->  #<svc-socket f1808>

(define bcs '())
(set! bcs (cons sock bcs))
(eq? sock (car bcs))       --> #f
(display sock)             --> #<svc-socket f1808>
(display (car bcs))        --> #<svc-socket f1808>


Why does eq? fail in the second case?
Any pointers would be welcome.

Regards

roland