diff options
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index e82e8edb..0d52aee5 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -728,11 +728,21 @@ gensymInt g == for i in 2..#p-1 repeat n := 10 * n + charDigitVal p.i n -++ +++ Returns a newly allocated domain shell (a simple vector) of length `n'. newShell: %Short -> SIMPLE_-ARRAY newShell n == MAKE_-ARRAY(n,KEYWORD::INITIAL_-ELEMENT,nil) +++ fetchs the item in the nth entry of a domain shell. +getShellEntry: (%Shell,%Short) -> %Thing +getShellEntry(s,i) == + SVREF(s,i) + +++ sets the nth nth entry of a domain shell to an item. +setShellEntry: (%Shell,%Short,%Thing) -> %Thing +setShellEntry(s,i,t) == + SETF(SVREF(s,i),t) + -- Push into the BOOT package when invoked in batch mode. AxiomCore::$sysScope := '"BOOT" |