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

Fix typo in commit 2a447ff.
---

diff --git a/src/runtime/uproc.scm b/src/runtime/uproc.scm
index b40b860ec..446d0f1c8 100644
--- a/src/runtime/uproc.scm
+++ b/src/runtime/uproc.scm
@@ -347,7 +347,7 @@ USA.
 (define-integrable (%entity-extra entity)
   (system-pair-cdr entity))
 
-(define-integrable (%set-entity-extra! entity procdure)
+(define-integrable (%set-entity-extra! entity extra)
   (system-pair-set-cdr! entity extra))
 
 (define (entity? object)