From bdcd0e3f16d800e09a34b67b5e73d219deead031 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 12 Nov 1994 23:05:38 +0000 Subject: [PATCH] Attended to bugs in copying DEFINITIONS and SEQUENCEs. --- v7/src/runtime/prgcop.scm | 8 ++++---- v8/src/runtime/prgcop.scm | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/prgcop.scm b/v7/src/runtime/prgcop.scm index 934d6fcfb..f0da93f96 100644 --- a/v7/src/runtime/prgcop.scm +++ b/v7/src/runtime/prgcop.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/prgcop.scm,v 1.4 1993/08/22 20:23:18 gjr Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/prgcop.scm,v 1.5 1994/11/12 23:05:38 adams Exp $ Copyright (c) 1990-91 Massachusetts Institute of Technology @@ -49,7 +49,7 @@ MIT in each case. |# (COMBINATION ,copy-COMBINATION-object) (COMMENT ,copy-COMMENT-object) (CONDITIONAL ,(%copy-triple (ucode-type CONDITIONAL))) - (DEFINITION ,(%copy-triple (ucode-type DEFINITION))) + (DEFINITION ,(%copy-pair (ucode-type DEFINITION))) (DELAY ,(%copy-pair (ucode-type DELAY))) (DISJUNCTION ,(%copy-pair (ucode-type DISJUNCTION))) (IN-PACKAGE ,(%copy-pair (ucode-type IN-PACKAGE))) @@ -237,9 +237,9 @@ MIT in each case. |# (define (copy-SEQUENCE-object obj) (cond ((object-type? (ucode-type SEQUENCE-2) obj) - (%copy-pair (ucode-type SEQUENCE-2) obj)) + (%%copy-pair (ucode-type SEQUENCE-2) obj)) ((object-type? (ucode-type SEQUENCE-3) obj) - (%copy-triple (ucode-type SEQUENCE-3) obj)) + (%%copy-triple (ucode-type SEQUENCE-3) obj)) (else (error "copy-SEQUENCE-object: Unknown type" obj)))) diff --git a/v8/src/runtime/prgcop.scm b/v8/src/runtime/prgcop.scm index 2572e7cc0..9c843e418 100644 --- a/v8/src/runtime/prgcop.scm +++ b/v8/src/runtime/prgcop.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/prgcop.scm,v 1.4 1993/08/22 20:23:18 gjr Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/prgcop.scm,v 1.5 1994/11/12 23:05:38 adams Exp $ Copyright (c) 1990-91 Massachusetts Institute of Technology @@ -49,7 +49,7 @@ MIT in each case. |# (COMBINATION ,copy-COMBINATION-object) (COMMENT ,copy-COMMENT-object) (CONDITIONAL ,(%copy-triple (ucode-type CONDITIONAL))) - (DEFINITION ,(%copy-triple (ucode-type DEFINITION))) + (DEFINITION ,(%copy-pair (ucode-type DEFINITION))) (DELAY ,(%copy-pair (ucode-type DELAY))) (DISJUNCTION ,(%copy-pair (ucode-type DISJUNCTION))) (IN-PACKAGE ,(%copy-pair (ucode-type IN-PACKAGE))) @@ -237,9 +237,9 @@ MIT in each case. |# (define (copy-SEQUENCE-object obj) (cond ((object-type? (ucode-type SEQUENCE-2) obj) - (%copy-pair (ucode-type SEQUENCE-2) obj)) + (%%copy-pair (ucode-type SEQUENCE-2) obj)) ((object-type? (ucode-type SEQUENCE-3) obj) - (%copy-triple (ucode-type SEQUENCE-3) obj)) + (%%copy-triple (ucode-type SEQUENCE-3) obj)) (else (error "copy-SEQUENCE-object: Unknown type" obj)))) -- 2.25.1