From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 18 Aug 1995 18:09:35 +0000 (+0000)
Subject: Containers use %car and %cdr, not CAR and CDR.
X-Git-Tag: 20090517-FFI~6033
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=75f32845a650ac7cde8c40fe67de688b8d8b9297;p=mit-scheme.git

Containers use %car and %cdr, not CAR and CDR.
---

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)