stack overflow bug

[Han-Wen Nienhuys]

This is current CVS

        guile> (define q (open-file "foo" "w"))
        guile> (define (bar b) b) 
        guile> (eval `(bar ,q) (current-module))

        ERROR: Stack overflow
        ABORT: (stack-overflow)

        guile> (version)
        "1.7.0"


GUILE goes into infinite recursion while calling SCM_SMOB_APPLY_3
(line 4163, eval.c) which seems to be related to the port object.

Can you please fix this? I consider this a severe bug.

-- 

 Han-Wen Nienhuys   |   address@hidden   |   http://www.xs4all.nl/~hanwen