From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Tue, 12 May 1992 13:43:47 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~9419
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9710992d25af8dbc8ef9a3cb75ec73456f0b612e;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/runtime/runtime.sf b/v7/src/runtime/runtime.sf
index 76dbd9e0f..deb28f591 100644
--- a/v7/src/runtime/runtime.sf
+++ b/v7/src/runtime/runtime.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.sf,v 14.7 1992/05/12 04:15:23 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.sf,v 14.8 1992/05/12 13:43:47 mhwu Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -42,4 +42,5 @@ MIT in each case. |#
 (cref/generate-constructors "runtim")
 (sf "runtim.con" "runtim.bcon")
 (sf "runtim.ldr" "runtim.bldr")
-(fasdump (read-file "runtim.avd") "runtim.bad")
\ No newline at end of file
+(if (file-exists? "runtim.avd")
+    (fasdump (read-file "runtim.avd") "runtim.bad"))
\ No newline at end of file