[Chicken-janitors] #1257: out-of-memory sometimes causes infinite loop

[Chicken Trac]

#1257: out-of-memory sometimes causes infinite loop
------------------------+---------------------
 Reporter:  kristianlm  |      Owner:
     Type:  defect      |     Status:  new
 Priority:  major       |  Milestone:  someday
Component:  unknown     |    Version:  4.10.x
 Keywords:              |
------------------------+---------------------
 Following the "discussion" on http://paste.call-
 cc.org/paste?id=efbe6a448b152968694221b82b299181f28925a3#a12 we see that,
 sometimes, running

 $ csi -s oom.scm -:hm8M -:g 2>&1 | grep resize
 [GC] resized heap to 3145728 bytes
 [GC] resized heap to 6291456 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 [GC] resized heap to 8388608 bytes
 ...

 triggers an infine heap-resize loop

 with oog.scm being

 (define state '())

 (let loop ()
   (set! state (alist-update (random 10000) (make-string 1000) state))
   (loop))

 this has been reproduced on 4.10.1 a 4.10.0

--
Ticket URL: <http://bugs.call-cc.org/ticket/1257>
CHICKEN Scheme <http://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.