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/postpar.boot | |
parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz |
Cleanup.
Diffstat (limited to 'src/interp/postpar.boot')
-rw-r--r-- | src/interp/postpar.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index 264bcdc8..142b498e 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -247,7 +247,7 @@ postDefArgs argl == argl is [[":",a],:b] => b ~= nil => postError ['" Argument",:bright a,'"of indefinite length must be last"] - a isnt [.,:.] or a is ["QUOTE",:.] => a + a isnt [.,:.] or a is ['QUOTE,:.] => a postError ['" Argument",:bright a,'"of indefinite length must be a name"] [first argl,:postDefArgs rest argl] @@ -313,7 +313,7 @@ postForm u == postQuote: %ParseTree -> %ParseForm postQuote [.,a] == - ["QUOTE",a] + quote a postScriptsForm: (%ParseTree,%List %ParseTree) -> %ParseForm @@ -555,7 +555,7 @@ postcheck x == x is ["DEF",form,[target,:.],:.] => setDefOp form postcheck rest rest x - x is ["QUOTE",:.] => nil + x is ['QUOTE,:.] => nil postcheck first x postcheck rest x |