From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Nov 1990 13:24:16 +0000 (+0000)
Subject: Change `fasdump' to return `unspecific'.
X-Git-Tag: 20090517-FFI~11067
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=240d760453302b1e5329491e4e298c2b2f6b2923;p=mit-scheme.git

Change `fasdump' to return `unspecific'.
---

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 5c091ccc1..152eeb57a 100644
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.19 1990/10/04 02:41:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.20 1990/11/14 13:24:16 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -214,7 +214,7 @@ MIT in each case. |#
     (if (not ((ucode-primitive primitive-fasdump) object filename false))
 	(error "FASDUMP: Object is too large to be dumped" object))
     (write-string " -- done" port))
-  object)
+  unspecific)
 
 (define (undefined-value? object)
   ;; Note: the unparser takes advantage of the fact that objects
diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 7361dd126..d2d701ce9 100644
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.19 1990/10/04 02:41:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.20 1990/11/14 13:24:16 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -214,7 +214,7 @@ MIT in each case. |#
     (if (not ((ucode-primitive primitive-fasdump) object filename false))
 	(error "FASDUMP: Object is too large to be dumped" object))
     (write-string " -- done" port))
-  object)
+  unspecific)
 
 (define (undefined-value? object)
   ;; Note: the unparser takes advantage of the fact that objects