[plt-scheme] custodian - how to exit program when memory limit is exceeded

Hello,

I am trying to make the main program exit if it exceeds memory limit.

The following (test) code does not do it:


#lang scheme

(custodian-limit-memory (current-custodian) 1)
(define x '(1 2 3 4 5 6 7))
(write "got here")(newline)


I tried to search but did not find much...

Or is it that sub-custodian cannot change the level above?

Vlad