From ad6ac4dc3c9662098ad38ca99cbf46d6315af52b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 31 Oct 2008 20:39:01 +0000
Subject: 	* boot/ast.boot (genECLnativeTranslation): Fix thinko.

---
 src/boot/ast.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index d461bcd3..f9246218 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1409,7 +1409,7 @@ genECLnativeTranslation(op,s,t,op') ==
   args := nil
   argtypes := nil
   for x in s repeat
-     argtypes := [nativeReturnType x,:argtypes]
+     argtypes := [nativeArgumentType x,:argtypes]
      args := [GENSYM(),:args]
   argtypes := nreverse argtypes
   args := nreverse args
-- 
cgit v1.2.3