diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
| commit | 5a03f408233bf4e17759ace9a83dcf6012f72dcc (patch) | |
| tree | 5af46b5ebca646527bb7ec115cfaaf68d5e00d23 /src/interp/i-intern.boot | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
Cleanup.
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 11199b26..e91f1d43 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -77,7 +77,7 @@ mkAtreeExpandMacros x == args => "doNothing" x := body x is [op,:argl] => - op = "QUOTE" => "doNothing" + op = 'QUOTE => "doNothing" op = "where" and argl is [before,after] => -- in a where clause, what follows "where" (the "after" parm -- above) might be a local macro, so do not expand the "before" @@ -135,7 +135,7 @@ mkAtree2(x,op,argl) == [mkAtreeNode op,mkAtree1 val] [mkAtreeNode op,mkAtree1 '(void)] op="exit" => mkAtree1 second argl - op = "QUOTE" => [mkAtreeNode op,:argl] + op = 'QUOTE => [mkAtreeNode op,:argl] op="SEGMENT" => argl is [a] => [mkAtreeNode op, mkAtree1 a] z := |