From: Guillermo J. Rozas Date: Mon, 10 Jun 1991 22:45:37 +0000 (+0000) Subject: Fix typo: set-entity-extra! was setting the wrong field. X-Git-Tag: 20090517-FFI~10525 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=96cb20fab98c62881305a45a7d719087adf388a9;p=mit-scheme.git Fix typo: set-entity-extra! was setting the wrong field. --- 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)))