From 96cb20fab98c62881305a45a7d719087adf388a9 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 10 Jun 1991 22:45:37 +0000 Subject: [PATCH] Fix typo: set-entity-extra! was setting the wrong field. --- v7/src/runtime/uproc.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/uproc.scm b/v7/src/runtime/uproc.scm index 1128fcbb7..3806331fe 100644 --- a/v7/src/runtime/uproc.scm +++ b/v7/src/runtime/uproc.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uproc.scm,v 1.1 1990/09/11 20:46:19 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uproc.scm,v 1.2 1991/06/10 22:45:37 jinx Exp $ Copyright (c) 1990 Massachusetts Institute of Technology @@ -280,7 +280,7 @@ MIT in each case. |# (system-pair-set-car! entity procedure)) (define-integrable (set-entity-extra! entity extra) - (system-pair-set-car! entity extra)) + (system-pair-set-cdr! entity extra)) (define (make-apply-hook procedure extra) (make-entity (lambda args (apply procedure (cdr args))) -- 2.25.1