From c7204f57be16b51e4e33ca82065c5e6869908741 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 5 Jul 2015 22:41:27 -0700 Subject: [PATCH] Fix another typo in commit 2a447ff. --- src/runtime/uproc.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.25.1