diff options
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 055fc160..11ff1a4a 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -517,3 +517,12 @@ transformCollect [:itrl,body] == it is ["|",pred] => nil [:iterList,bodyTree] +--% + +++ Make a VAT for the symbol `x' and collect all known information +++ about `x' in the current environment into the new VAT. +++ Note: This routine is used in the algebra interface to the interpreter. +mkAtreeForToken: %Symbol -> %Shell +mkAtreeForToken x == + t := mkAtreeNode x + transferPropsToNode(x,t) |