diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:08:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:08:10 +0000 |
| commit | acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882 (patch) | |
| tree | 80794b9d25f799edc826d20407339d6384f9b03d /src/interp/sys-utility.boot | |
| parent | 53356dde96d8bc9e264dbd291df8b9b3a75aa5d1 (diff) | |
| download | open-axiom-acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index d6b0d6ed..9bff9b41 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -114,14 +114,14 @@ macrop f == functionp: %Thing -> %Boolean functionp f == IDENTP f => FBOUNDP f and null MACRO_-FUNCTION f - FUNCTIONP f + function? f ++ remove `item' from `sequence'. delete: (%Thing,%Sequence) -> %Sequence delete(item,sequence) == symbol? item => - REMOVE(item,sequence,KEYWORD::TEST,function EQ) - atom item and not ARRAYP item => + REMOVE(item,sequence,KEYWORD::TEST,function sameObject?) + atom item and not array? item => REMOVE(item,sequence) REMOVE(item,sequence,KEYWORD::TEST,function EQUALP) @@ -274,8 +274,8 @@ PRINT_-AND_-EVAL_-DEFUN(name,body) == hashTable cmp == testFun := - cmp in '(ID EQ) => function EQ - cmp = 'EQL => function EQL + cmp in '(ID EQ) => function sameObject? + cmp = 'EQL => function scalarEqual? cmp = 'EQUAL => function EQUAL error '"bad arg to hashTable" MAKE_-HASH_-TABLE(KEYWORD::TEST,testFun) |