diff options
Diffstat (limited to 'src/interp/i-object.boot')
| -rw-r--r-- | src/interp/i-object.boot | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index 2ac8ae61..d9dbd969 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -393,6 +393,13 @@ srcPosDisplay(sp) == true +++ Returns the calling convention vector for an operation +++ represented by the VAT `t'. +getFlagArgsPos t == + VECP t => getAtree(t, 'flagArgsPos) + atom t => keyedSystemError("S2II0001",[t]) + getFlagArgsPos car t + --% Transfer of VAT properties. |