aboutsummaryrefslogtreecommitdiff
path: root/src/boot/ast.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-04-19 13:18:04 +0000
committerdos-reis <gdr@axiomatics.org>2011-04-19 13:18:04 +0000
commitb893a938b4051bc30a9c44bdcf6000bff11969c4 (patch)
treee015989876cff9b1b185cc00a55bfc92be277961 /src/boot/ast.boot
parentc6179efd4a1f1770d4d31415582eabebbe2ab6a0 (diff)
downloadopen-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.boot2
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]