From 1b8bd86dbb76098cdd01b298b5ba1309d18bc7d3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 9 Sep 1990 03:13:56 +0000 Subject: [PATCH] Fix typo. --- v7/src/runtime/prgcop.scm | 42 +++++++++++++++++++++------------------ v8/src/runtime/prgcop.scm | 42 +++++++++++++++++++++------------------ 2 files changed, 46 insertions(+), 38 deletions(-) diff --git a/v7/src/runtime/prgcop.scm b/v7/src/runtime/prgcop.scm index 35b625165..3af3fbdc8 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.1 1990/07/20 01:12:33 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/prgcop.scm,v 1.2 1990/09/09 03:13:56 cph Rel $ Copyright (c) 1990 Massachusetts Institute of Technology @@ -41,21 +41,22 @@ MIT in each case. |# (define (initialize-package!) (set! copier/scode-walker - (make-scode-walker copy-constant - `((ACCESS ,(%copy-pair (ucode-type ACCESS))) - (ASSIGNMENT ,(%copy-triple (ucode-type ASSIGNMENT))) - (COMBINATION ,copy-COMBINATION-object) - (COMMENT ,copy-COMMENT-object) - (CONDITIONAL ,(%copy-triple (ucode-type CONDITIONAL))) - (DEFINITION ,(%copy-triple (ucode-type DEFINITION))) - (DELAY ,(%copy-pair (ucode-type DELAY))) - (DISJUNCTION ,(%copy-pair (ucode-type DISJUNCTION))) - (IN-PACKAGE ,(%copy-pair (ucode-type IN-PACKAGE))) - (LAMBDA ,copy-LAMBDA-object) - (QUOTATION ,(%copy-pair (ucode-type QUOTATION))) - (SEQUENCE ,copy-SEQUENCE-object) - (THE-ENVIRONMENT ,copy-constant) - (VARIABLE ,copy-VARIABLE-object)))) + (make-scode-walker + copy-constant + `((ACCESS ,(%copy-pair (ucode-type ACCESS))) + (ASSIGNMENT ,(%copy-triple (ucode-type ASSIGNMENT))) + (COMBINATION ,copy-COMBINATION-object) + (COMMENT ,copy-COMMENT-object) + (CONDITIONAL ,(%copy-triple (ucode-type CONDITIONAL))) + (DEFINITION ,(%copy-triple (ucode-type DEFINITION))) + (DELAY ,(%copy-pair (ucode-type DELAY))) + (DISJUNCTION ,(%copy-pair (ucode-type DISJUNCTION))) + (IN-PACKAGE ,(%copy-pair (ucode-type IN-PACKAGE))) + (LAMBDA ,copy-LAMBDA-object) + (QUOTATION ,(%copy-pair (ucode-type QUOTATION))) + (SEQUENCE ,copy-SEQUENCE-object) + (THE-ENVIRONMENT ,copy-constant) + (VARIABLE ,copy-VARIABLE-object)))) unspecific) ;;;; Top level @@ -113,9 +114,12 @@ MIT in each case. |# (%copy-constant obj)))) (define (%copy-constant obj) - (cond ((or (number? obj) (symbol? obj) - (boolean? obj) (null? obj) - (character? obj) (object-type? (ucode-type REFERENCE-TRAP) obj)) + (cond ((or (number? obj) + (symbol? obj) + (boolean? obj) + (null? obj) + (char? obj) + (object-type? (ucode-type REFERENCE-TRAP) obj)) obj) ((pair? obj) (%%copy-pair (ucode-type PAIR) obj)) diff --git a/v8/src/runtime/prgcop.scm b/v8/src/runtime/prgcop.scm index ea21dae84..4b0e09a9c 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.1 1990/07/20 01:12:33 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/prgcop.scm,v 1.2 1990/09/09 03:13:56 cph Rel $ Copyright (c) 1990 Massachusetts Institute of Technology @@ -41,21 +41,22 @@ MIT in each case. |# (define (initialize-package!) (set! copier/scode-walker - (make-scode-walker copy-constant - `((ACCESS ,(%copy-pair (ucode-type ACCESS))) - (ASSIGNMENT ,(%copy-triple (ucode-type ASSIGNMENT))) - (COMBINATION ,copy-COMBINATION-object) - (COMMENT ,copy-COMMENT-object) - (CONDITIONAL ,(%copy-triple (ucode-type CONDITIONAL))) - (DEFINITION ,(%copy-triple (ucode-type DEFINITION))) - (DELAY ,(%copy-pair (ucode-type DELAY))) - (DISJUNCTION ,(%copy-pair (ucode-type DISJUNCTION))) - (IN-PACKAGE ,(%copy-pair (ucode-type IN-PACKAGE))) - (LAMBDA ,copy-LAMBDA-object) - (QUOTATION ,(%copy-pair (ucode-type QUOTATION))) - (SEQUENCE ,copy-SEQUENCE-object) - (THE-ENVIRONMENT ,copy-constant) - (VARIABLE ,copy-VARIABLE-object)))) + (make-scode-walker + copy-constant + `((ACCESS ,(%copy-pair (ucode-type ACCESS))) + (ASSIGNMENT ,(%copy-triple (ucode-type ASSIGNMENT))) + (COMBINATION ,copy-COMBINATION-object) + (COMMENT ,copy-COMMENT-object) + (CONDITIONAL ,(%copy-triple (ucode-type CONDITIONAL))) + (DEFINITION ,(%copy-triple (ucode-type DEFINITION))) + (DELAY ,(%copy-pair (ucode-type DELAY))) + (DISJUNCTION ,(%copy-pair (ucode-type DISJUNCTION))) + (IN-PACKAGE ,(%copy-pair (ucode-type IN-PACKAGE))) + (LAMBDA ,copy-LAMBDA-object) + (QUOTATION ,(%copy-pair (ucode-type QUOTATION))) + (SEQUENCE ,copy-SEQUENCE-object) + (THE-ENVIRONMENT ,copy-constant) + (VARIABLE ,copy-VARIABLE-object)))) unspecific) ;;;; Top level @@ -113,9 +114,12 @@ MIT in each case. |# (%copy-constant obj)))) (define (%copy-constant obj) - (cond ((or (number? obj) (symbol? obj) - (boolean? obj) (null? obj) - (character? obj) (object-type? (ucode-type REFERENCE-TRAP) obj)) + (cond ((or (number? obj) + (symbol? obj) + (boolean? obj) + (null? obj) + (char? obj) + (object-type? (ucode-type REFERENCE-TRAP) obj)) obj) ((pair? obj) (%%copy-pair (ucode-type PAIR) obj)) -- 2.25.1