From 3d51abbf17fa58fadbfa59757f50908488f6f9d9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 21:36:45 +0000
Subject: More cleanups

---
 src/interp/i-intern.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/i-intern.boot')

diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot
index 12d02705..5700924c 100644
--- a/src/interp/i-intern.boot
+++ b/src/interp/i-intern.boot
@@ -307,8 +307,8 @@ flagArguments(op, nargs) ==
 signatureFromModemap m ==
   [sig,pred,:.]  := m
   pred = true => rest sig
-  car pred = "AND" =>
-    sl := [[a,:b] for [.,a,b] in cdr pred]
+  first pred = "AND" =>
+    sl := [[a,:b] for [.,a,b] in rest pred]
     rest SUBLIS(sl,sig)
   
 collectDefTypesAndPreds args ==
-- 
cgit v1.2.3