Attended to bugs in copying DEFINITIONS and SEQUENCEs.

diff --git a/v7/src/runtime/prgcop.scm b/v7/src/runtime/prgcop.scm
index 934d6fcfb3eea9e3b60427a5426d77a7dce07c4b..f0da93f9633692e9d53534ef33c7a266da89ad43 100644 (file)
--- 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. |#
 \f
 (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 2572e7cc0a3804a0aa7267939243459b8535c9fe..9c843e41882e37e5465a66b4ba8388e4f8b03a1c 100644 (file)
--- 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. |#
 \f
 (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))))