From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Mon, 6 Jul 2015 05:41:27 +0000 (-0700)
Subject: Fix another typo in commit 2a447ff.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~84^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c7204f57be16b51e4e33ca82065c5e6869908741;p=mit-scheme.git

Fix another typo in commit 2a447ff.
---

diff --git a/src/runtime/uproc.scm b/src/runtime/uproc.scm
index 446d0f1c8..5ccee8d6e 100644
--- a/src/runtime/uproc.scm
+++ b/src/runtime/uproc.scm
@@ -342,7 +342,7 @@ USA.
   (system-pair-car entity))
 
 (define-integrable (%set-entity-procedure! entity procedure)
-  (system-pair-set-cdr! entity procedure))
+  (system-pair-set-car! entity procedure))
 
 (define-integrable (%entity-extra entity)
   (system-pair-cdr entity))