aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-analy.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-analy.boot')
-rw-r--r--src/interp/i-analy.boot6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index 84518d51..1541fbc7 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -207,6 +207,12 @@ pushDownOp?(op,n) ==
-- Also see I-SPEC BOOT for special handlers and I-MAP BOOT for
-- user function processing.
+++ Take a parse form and return the VAT for its elaboration.
+elaborateForm pf ==
+ t := mkAtree1 pf
+ bottomUp t
+ t
+
bottomUp t ==
-- bottomUp takes an attributed tree, and returns the modeSet for it.
-- As a side-effect it also evaluates the tree.