Welcome to the CHICKEN Scheme pasting service

(begin-for-syntax
 (import srfi-4)
 (import srfi-1)
 (let [(m (map (lambda (f) (make-u8vector (inexact->exact (* 1024 1024))))
	       (iota 1024)))]
   (print "foo")))
(print "bar")

(begin-for-syntax
 (import srfi-4)
 (import srfi-1)
 (let [(m (map (lambda (f) (print f) (make-u8vector (* 1024 1024)))
	       (iota 1024000)))]
   (print "foo")))
(print "bar")

#1
csc -:g -:d ~/tmp/alloctest.scm
...
995
[debug] resizing heap dynamically from 2064538k to 2097151k ...
[panic] out of memory - cannot allocate heap segment - execution terminated

#2
csc ~/tmp/alloctest.scm
stuck at 1011