aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-constants.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-05-25 21:33:06 +0000
committerdos-reis <gdr@axiomatics.org>2009-05-25 21:33:06 +0000
commit48f85cd0f651d269dfc1c641befe1fb1e4c50486 (patch)
tree3b8da34eec93270d4696a19ac3489295952d2244 /src/interp/sys-constants.boot
parente7ad9a3ff2ef291339dbb704426a8bef6ab8970a (diff)
downloadopen-axiom-48f85cd0f651d269dfc1c641befe1fb1e4c50486.tar.gz
* interp/sys-constants.boot ($OperatorFunctionNames): New.
* interp/metalex.lisp (|PARSE-OperatorFunctionName|): New. Use it. * interp/fnewmeta.lisp (|PARSE-Category|): Handle operator function names.
Diffstat (limited to 'src/interp/sys-constants.boot')
-rw-r--r--src/interp/sys-constants.boot9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index ab119c84..b50e1d56 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -731,3 +731,12 @@ $KillLispSystem == 14
$SpadReaderTag ==
"SPAD__READER"
+
+--%
+
+++ List of operator names that can be overloaded in libraries.
+$OperatorFunctionNames ==
+ ["**", "^", "*", "/", "rem", "quo", "mod", "div", "exquo",
+ "+", "-", ">", ">=", "=", "~=", "<", "<=", "~", "not",
+ "case", "and", "or", "<<", ">>" ]
+