Add dump-option option to fasdump.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 62ea332a885c51b4e86ca8be4aeacd324c48061d..b2386b9f55c5d437f582db09999a79825c9f7e27 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.38 1992/07/21 04:24:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.39 1992/07/21 17:28:45 boogles Exp $
 
-Copyright (c) 1988-92 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -235,13 +235,18 @@ MIT in each case. |#
       ((ucode-primitive primitive-impurify) object))
   object)
 
-(define (fasdump object filename #!optional suppress-messages?)
+(define (fasdump object filename
+                #!optional suppress-messages? dump-option)
   (let* ((filename (->namestring (merge-pathnames filename)))
         (do-it
          (lambda (start-message end-message)
            (start-message)
            (let loop ()
-             (if ((ucode-primitive primitive-fasdump) object filename false)
+             (if ((ucode-primitive primitive-fasdump)
+                  object filename
+                  (if (default-object? dump-option)
+                      false
+                      dump-option))
                  (end-message)
                  (begin
                    (with-simple-restart 'RETRY "Try again."

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 4b4c8be2292d2846fde16bd593cc6612ca237388..a3ec50dacff6c2df4bac20c15edd5e662cc1f0de 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.38 1992/07/21 04:24:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.39 1992/07/21 17:28:45 boogles Exp $
 
-Copyright (c) 1988-92 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -235,13 +235,18 @@ MIT in each case. |#
       ((ucode-primitive primitive-impurify) object))
   object)
 
-(define (fasdump object filename #!optional suppress-messages?)
+(define (fasdump object filename
+                #!optional suppress-messages? dump-option)
   (let* ((filename (->namestring (merge-pathnames filename)))
         (do-it
          (lambda (start-message end-message)
            (start-message)
            (let loop ()
-             (if ((ucode-primitive primitive-fasdump) object filename false)
+             (if ((ucode-primitive primitive-fasdump)
+                  object filename
+                  (if (default-object? dump-option)
+                      false
+                      dump-option))
                  (end-message)
                  (begin
                    (with-simple-restart 'RETRY "Try again."