From 75f32845a650ac7cde8c40fe67de688b8d8b9297 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 18 Aug 1995 18:09:35 +0000
Subject: [PATCH] Containers use %car and %cdr, not CAR and CDR.

---
 v8/src/compiler/midend/widen.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v8/src/compiler/midend/widen.scm b/v8/src/compiler/midend/widen.scm
index 3b906e22b..92846b447 100644
--- a/v8/src/compiler/midend/widen.scm
+++ b/v8/src/compiler/midend/widen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: widen.scm,v 1.7 1995/03/20 02:01:15 adams Exp $
+$Id: widen.scm,v 1.8 1995/08/18 18:09:35 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -468,8 +468,8 @@ MIT in each case. |#
   (case n
     ((0) '())
     ((1) (list expr))
-    ((2) `((CALL ',car '#F ,expr)
-	   (CALL ',cdr '#F ,expr)))
+    ((2) `((CALL ',%car '#F ,expr)
+	   (CALL ',%cdr '#F ,expr)))
     (else (let loop ((m (- n 1))
 		     (result '()))
 	    (if (negative? m)
-- 
2.25.1