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/tokens.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/tokens.boot')
| -rw-r--r-- | src/boot/tokens.boot | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index e01e8d6d..95011b4a 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -253,6 +253,7 @@ for i in [ _ ["charByName", "NAME-CHAR"] , _ ["charString", "STRING"] , _ ["char?", "CHARACTERP"] , _ + ["charEq?", "CHAR=" ], _ ["codePoint", "CHAR-CODE"], _ ["cons?", "CONSP"] , _ ["copy", "COPY"] , _ @@ -295,6 +296,7 @@ for i in [ _ ["rest", "CDR"] , _ ["reverse", "REVERSE"] , _ ["sameObject?", "EQ" ] , _ + ["scalarEq?", "EQL" ] , _ ["scalarEqual?","EQL" ] , _ ["second", "CADR"] , _ ["setDifference", "SETDIFFERENCE"] , _ @@ -304,6 +306,7 @@ for i in [ _ ["strconc", "CONCAT"] , _ ["stringChar", "SCHAR"] , _ ["string?", "STRINGP"] ,_ + ["stringEq?","STRING="] , _ ["subSequence", "SUBSEQ"] , _ ["substitute", "SUBST"] , _ ["substitute!", "NSUBST"] , _ |