diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-02 02:18:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 02:18:44 +0000 |
| commit | 29e53d366bd313f432aa744b651875f97438586c (patch) | |
| tree | f28c87d6e8836b2b02c3b6e06cfe2716b717df65 /src/interp/g-util.boot | |
| parent | 1906e73ab030ad23f1f6269acfed69703c8c40d6 (diff) | |
| download | open-axiom-29e53d366bd313f432aa744b651875f97438586c.tar.gz | |
* boot/parser.boot (bpDefinition): Accept macro definition
starting with the keyword "MACRO".
* boot/translator.boot (exportNames): Export them in all
evaluation contexts.
* interp/c-util.boot: "macro" is now a keyword.
* interp/define.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/postpar.boot: Likewise.
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index e1ff661a..d2636c16 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -290,9 +290,9 @@ addIntSymTabBinding(var,proplist,e is [[curContour,:.],:.]) == e putMacro(lhs,rhs,e) == - atom lhs => put(lhs,'macro,rhs,e) + atom lhs => put(lhs,"macro",rhs,e) parms := [gensym() for p in lhs.args] - put(lhs.op,'macro, + put(lhs.op,"macro", ['%mlambda,parms,applySubst(pairList(lhs.args,parms),rhs)],e) --% Syntax manipulation |