diff options
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 3e93fd15..efee0657 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -278,11 +278,8 @@ 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 + -- Match old parser normal form. + y' := resolveNiladicConstructors y a := mkAtreeNode $immediateDataSymbol m := quasiquote y' putMode(a, m) |