From a1eeda981dd4d753a805ff4a13a4ef26d167a7fb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 31 May 2010 20:35:23 +0000
Subject: 	* interp/compiler.boot (compWithMappingMode): Handle lambda 
 expressions as mapping.

---
 src/interp/g-util.boot | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

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

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 5e1a228a..6d19f0dd 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -255,12 +255,14 @@ for x in [
     ['%ineg,    :"-"],
     ['%integer?,:'INTEGERP],
     ['%iodd?,   :'ODDP],
+    ['%ismall?, :'FIXNUMP],
     -- binary integer operations.
     ['%iadd,:"+"],
     ['%ieq, :"EQL"],
     ['%igcd,:'GCD],
     ['%ige, :">="],
     ['%igt, :">"],
+    ['%iinc,:"1+"],
     ['%ilcm,:'LCM],
     ['%ile, :"<="],
     ['%ilt, :"<"],
@@ -287,9 +289,15 @@ for x in [
     -- list contants
     -- ['%nil, :'NIL],
     -- unary list operations
-    ['%head,:'CAR],
-    ['%pair?, :'CONSP],
-    ['%tail,:'CDR]
+    ['%head,    :'CAR],
+    ['%llength, :'LIST_-LENGTH],
+    ['%pair?,   :'CONSP],
+    ['%tail,    :'CDR],
+    -- binary list operations
+    ['%lconcat, :'APPEND],
+
+    -- general utility
+    ['%hash,:'SXHASH]
   ] repeat property(first x,'%Rename) := rest x
 
 ++ Table of opcode-expander pairs.  
-- 
cgit v1.2.3