From e5d4ef2b7b10efa9472180130c34f5cbff432cc0 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 16 Aug 1990 08:41:51 +0000 Subject: [PATCH] Make disk-restore invoke canonicalize-input-filename before invoking event:before-exit. --- v7/src/runtime/savres.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm index 7ac43d0b7..8c0c8b6a4 100644 --- a/v7/src/runtime/savres.scm +++ b/v7/src/runtime/savres.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.13 1990/07/30 03:47:46 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.14 1990/08/16 08:41:51 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -124,12 +124,14 @@ MIT in each case. |# ;; Force order of events -- no need to run event:before-exit if ;; there's an error here. (let ((filename - (if (default-object? filename) - (or ((ucode-primitive reload-band-name)) - (error "DISK-RESTORE: No default band name available")) - filename))) + (canonicalize-input-filename + (if (default-object? filename) + (or ((ucode-primitive reload-band-name)) + (error "DISK-RESTORE: No default band name available")) + filename)))) (event-distributor/invoke! event:before-exit) - ((ucode-primitive load-band) (canonicalize-input-filename filename)))) + ((ucode-primitive load-band) filename))) + (define world-identification "Scheme") (define time-world-saved) -- 2.25.1