Click here to download test-alloc.scm.

;;; SI 413 Fall 2018
;;; Example to show memory allocation in Scheme
;;; Calling (go size) just starts allocating
;;; vectors of that size... forever!


(define (go size)
  (go-and-count size 0))

(define (go-and-count size i)
  (let ((v (make-vector size 0)))
    (display i)
    (newline)
    (go-and-count size (+ i 1))))