From 8672c9ca7ea2f66a0ab372697c258dac5bb43382 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 21 Apr 2011 13:47:27 +0000
Subject: 	* boot/utility.boot (objectMember?): Don't rely non tail
 recursion 	removal. 	(reverse): Define. 	* boot/tokens.boot:
 Don't rename reverse anymore. 	* boot/ast.boot: Generate reverse forms
 instead of REVERSE.

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

(limited to 'src/interp/lisp-backend.boot')

diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 0fbb0f33..e5d07fe2 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -562,7 +562,7 @@ for x in [
     ['%lempty?,   :'NULL],
     ['%lfirst,    :'CAR],
     ['%llength,   :'LIST_-LENGTH],
-    ['%lreverse,  :'REVERSE],
+    ['%lreverse,  :'reverse],
     ['%lreverse!, :'reverse!],
     ['%lsecond,   :'CADR],
     ['%lthird,    :'CADDR],
-- 
cgit v1.2.3