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-util.boot | |
parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz |
Cleanup.
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 41a07a51..f9bb8ef0 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -357,7 +357,7 @@ getTypeOfSyntax t == $Syntax [op,:.] := t op = "Mapping" => '(MappingAst) - op = "QUOTE" and #t = 2 and ident? second t => ["Literal",$Symbol] + op = 'QUOTE and #t = 2 and ident? second t => ["Literal",$Symbol] op = "IF" => '(IfAst) op = "REPEAT" => '(RepeatAst) op = "WHILE" => '(WhileAst) |