Change `fasdump' to return `unspecific'.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 5c091ccc1c58de39203765055ec614010958750f..152eeb57ac67572c1ef28491832a781db61001b6 100644 (file)
--- 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)
 \f
 (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 7361dd126f61b31d6a75b53ff71806078a061077..d2d701ce9d466ebcdb8834e99de3948e62c35be4 100644 (file)
--- 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)
 \f
 (define (undefined-value? object)
   ;; Note: the unparser takes advantage of the fact that objects