From 0211cdcda63fb2e01c4b6db7f707da80c76250f6 Mon Sep 17 00:00:00 2001 From: "Brian K. Zuzga" Date: Tue, 21 Jul 1992 17:28:45 +0000 Subject: [PATCH] Add dump-option option to fasdump. --- v7/src/runtime/global.scm | 13 +++++++++---- v8/src/runtime/global.scm | 13 +++++++++---- 2 files changed, 18 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm index 62ea332a8..b2386b9f5 100644 --- 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 4b4c8be22..a3ec50dac 100644 --- 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." -- 2.25.1