On Wed, 16 Feb 2000, Alex Stark wrote:

> -------------------------- Test program
> #! /bin/sh
> exec guile -s $0 $*
> !#
> 
> (display (hashq 'position 5)) (newline)
> (display (hashq 'fluff 5)) (newline)
> 
> (define A 'position)
> 
> (display (hashq 'position 5)) (newline)
> 
> 
> -------------------------- Output
> [pilot]$ bugtest
> 0
> 1
> 3


For all of you who failed to reproduce that behaviour, perform a garbage
collection in between.  For me it did not work otherwise.


(display (hashq 'position 5)) (newline)  --> 2
(gc)
(display (hashq 'position 5)) (newline)  --> 0


This is with a current guile from cvs.


Best regards
Dirk Herrmann

Reply via email to