From 48c092700c17a94bd5107cd6caf81f53214027ca Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 23 Nov 2009 16:30:41 -0800 Subject: [PATCH] Don't run-boot-inits! if saved-boot-inits is unbound. --- src/runtime/boot.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm index 4a23baf03..805870522 100644 --- a/src/runtime/boot.scm +++ b/src/runtime/boot.scm @@ -158,11 +158,12 @@ USA. ((ucode-primitive local-assignment) environment saved-boot-inits inits))) (define (run-boot-inits! environment) - (let ((inits - ((ucode-primitive lexical-reference) environment saved-boot-inits))) - ((ucode-primitive unbind-variable) environment saved-boot-inits) - (for-each (lambda (init) (init)) - inits))) + (and (not (lexical-unreferenceable? environment saved-boot-inits)) + (let ((inits + ((ucode-primitive lexical-reference) environment saved-boot-inits))) + ((ucode-primitive unbind-variable) environment saved-boot-inits) + (for-each (lambda (init) (init)) + inits)))) (define boot-inits #f) (define saved-boot-inits '|#[saved-boot-inits]|) \ No newline at end of file -- 2.25.1