diff options
author | dos-reis <gdr@axiomatics.org> | 2008-12-11 22:56:34 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-12-11 22:56:34 +0000 |
commit | a6488569ce5377da9a5647ec06b698cc0a42c8c1 (patch) | |
tree | 988ff357a0fbf482ab7b9e1bb7da7cddb4e1d806 /src/interp/i-intern.boot | |
parent | 730ecb0d1904fae9f71ea900b4b4661720c7deaf (diff) | |
download | open-axiom-a6488569ce5377da9a5647ec06b698cc0a42c8c1.tar.gz |
r12443@gauss: gdr | 2008-12-11 15:51:39 -0600
Remove unused parse codes.
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r-- | src/interp/i-intern.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 245ba9e9..3e93fd15 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -278,6 +278,10 @@ mkAtree3(x,op,argl) == [z,:[buildTreeForOperand for y in argl for i in 0..]] where buildTreeForOperand() == flagArgPos and flagArgPos.i > 0 => + -- The following call to old parser functions + -- is a TEMPORARY HACK to match what the old + -- parser gets. A proper syntax resolution should be + -- implemented. y' := parseTransform postTransform y a := mkAtreeNode $immediateDataSymbol m := quasiquote y' |