From 240d760453302b1e5329491e4e298c2b2f6b2923 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 14 Nov 1990 13:24:16 +0000 Subject: [PATCH] Change `fasdump' to return `unspecific'. --- v7/src/runtime/global.scm | 4 ++-- v8/src/runtime/global.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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 -- 2.25.1