diff options
Diffstat (limited to 'src/interp/nruntime.boot')
| -rw-r--r-- | src/interp/nruntime.boot | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/interp/nruntime.boot b/src/interp/nruntime.boot index 460f3e62..0275bd1e 100644 --- a/src/interp/nruntime.boot +++ b/src/interp/nruntime.boot @@ -35,6 +35,16 @@ import '"c-util" )package "BOOT" +++ 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) + unloadOneConstructor(cnam,fn) == REMPROP(cnam,'LOADED) SETF(SYMBOL_-FUNCTION cnam,mkAutoLoad(fn, cnam)) |