From 50cfb5533a31afb7d85c0574ab6359efbc4f164e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 1 Jun 2010 21:25:59 +0000
Subject: 	* algebra/list.spad.pamphlet: Use builtin functions.

---
 src/interp/g-util.boot | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'src/interp/g-util.boot')

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index a3674a01..d949a6fb 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -299,16 +299,19 @@ for x in [
     -- list contants
     -- ['%nil, :'NIL],
     -- unary list operations
-    ['%head,    :'CAR],
-    ['%makepair,:'CONS],
-    ['%lfirst,  :'CAR],
-    ['%llength, :'LIST_-LENGTH],
-    ['%lsecond, :'CADR],
-    ['%lthird,  :'CADDR],
-    ['%pair?,   :'CONSP],
-    ['%tail,    :'CDR],
+    ['%head,      :'CAR],
+    ['%makepair,  :'CONS],
+    ['%lempty?,   :'NULL],
+    ['%lfirst,    :'CAR],
+    ['%llength,   :'LIST_-LENGTH],
+    ['%lreverse,  :'REVERSE],
+    ['%lreverse_!,:'NREVERSE],
+    ['%lsecond,   :'CADR],
+    ['%lthird,    :'CADDR],
+    ['%pair?,     :'CONSP],
+    ['%tail,      :'CDR],
     -- binary list operations
-    ['%lconcat, :'APPEND],
+    ['%lconcat,   :'APPEND],
 
     -- symbol unary functions
     ['%gensym,  :'GENSYM],
-- 
cgit v1.2.3