diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-31 20:35:23 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-31 20:35:23 +0000 |
commit | a1eeda981dd4d753a805ff4a13a4ef26d167a7fb (patch) | |
tree | 0618ba4d65441897c18e85942a75ce485387356d /src/interp/g-util.boot | |
parent | b34d97dda5ce8c88d31412d11b1ad67da058480e (diff) | |
download | open-axiom-a1eeda981dd4d753a805ff4a13a4ef26d167a7fb.tar.gz |
* interp/compiler.boot (compWithMappingMode): Handle lambda
expressions as mapping.
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 14 |
1 files changed, 11 insertions, 3 deletions
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. |