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 3b906e22b8065b8ac954f286f1f48f11cebff5e5..92846b4471dac90f83842be7ce1c892aa8ad0d62 100644 (file)
--- 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)