diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-19 13:18:04 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 13:18:04 +0000 |
commit | b893a938b4051bc30a9c44bdcf6000bff11969c4 (patch) | |
tree | e015989876cff9b1b185cc00a55bfc92be277961 /src/boot/ast.boot | |
parent | c6179efd4a1f1770d4d31415582eabebbe2ab6a0 (diff) | |
download | open-axiom-b893a938b4051bc30a9c44bdcf6000bff11969c4.tar.gz |
* interp/newfort.boot: Likewise.
* interp/define.boot (orderBySubsumption): Fix thinko.
* interp/boot-pkg.lisp: Use BOOTTRAN package. Don't import names
individually.
* boot/utility.boot: New.
* boot/translator.boot (exportNames): Fix thinko.
* boot/tokens.boot: Add charEq? and scalarEq? builtiin functions.
* boot/ast.boot (bfMember): Generate call to symbolMember? for
membership tests for symbols.
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r-- | src/boot/ast.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index ec973521..e9272af2 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -703,7 +703,7 @@ bfMember(var,seq) == integer? var or var is ["char",.] or sequence?(seq,function integer?) => ["MEMBER",var,seq,KEYWORD::TEST, ["FUNCTION", "EQL"]] defQuoteId var or sequence?(seq,function symbol?) => - ["MEMQ",var,seq] + ["symbolMember?",var,seq] string? var or sequence?(seq,function string?) => ["MEMBER",var,seq,KEYWORD::TEST,["FUNCTION", "STRING="]] ["MEMBER",var,seq] |