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/g-opt.boot | |
parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz |
Cleanup.
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r-- | src/interp/g-opt.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 38ad55b6..e2a1e7c9 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -483,7 +483,7 @@ isSimpleVMForm form == isFloatableVMForm: %Code -> %Boolean isFloatableVMForm form == form isnt [.,:.] => form isnt "$" - form is ["QUOTE",:.] => true + form is ['QUOTE,:.] => true symbolMember?(form.op, $simpleVMoperators) and "and"/[isFloatableVMForm arg for arg in form.args] @@ -503,7 +503,7 @@ isVMConstantForm form == findVMFreeVars form == ident? form => [form] form isnt [op,:args] => nil - op is "QUOTE" => nil + op is 'QUOTE => nil vars := union/[findVMFreeVars arg for arg in args] op isnt [.,:.] => vars setUnion(findVMFreeVars op,vars) @@ -586,7 +586,7 @@ optList form == form is ['%list] => '%nil literalElts := [(x is ['QUOTE,y] => y; leave "failed") for x in form.args] literalElts is "failed" => form - quoteForm literalElts + quote literalElts optCollectVector form == [.,eltType,:iters,body] := form |