074D0 |
BIND
|
( obn..ob1 {lamn..lam1} → )
Binds n objects to n differently named lams.
|
074E4 |
DOBIND
|
( obn..ob1 lamn..lam1 #n → )
Binds n objects to n differently named lams.
|
634CF |
1LAMBIND
|
( ob → )
Binds one object to a null named lam.
|
634CA |
DUP1LAMBIND
|
( ob → ob )
Does DUP then <REF>1LAMBIND.
|
0DB0B0 |
~nNullBind
|
( obn..ob1 #n → )
Binds #n objects to null named lams. 1LAM has
the count, 2LAM the first object. Decompiles
to
:: ' NULLLAM CACHE ;
|
63A29 |
dvarlsBIND
|
( ob → )
Binds ob to LAM 'dvar.
|
07497 |
ABND
|
( → )
Abandons topmost temporary environment.
|
61CE9 |
CACHE
|
( obn..ob1 #n lam → )
Binds all objects under the same name. 1LAM
has the count.
|
61EA7 |
DUMP
|
( NULLLAM → ob1..obn #n )
Inverse of CACHE. Always does garbage
collection.
|
61D41 |
SAVESTACK
|
( → )
Caches stack to SAVELAM.
|
40CE9 |
CacheStack
|
( → )
Caches the stack using SAVESTACK if UNDO is
on and Suspend is OK. If there was a
previous environment caching the stack, it is
abandoned first.
|
61F8F |
undo
|
( → )
Dumps SAVELAM.
|
07943 |
@LAM
|
( lam → ob T )
( lam → F )
Tries recalling object from lam. If
successful, returns object and TRUE,
otherwise returns just FALSE.
|
07D1B |
STOLAM
|
( ob lam → )
Tries storing object in lam. Generates
"Undefined Local Name" error if lam is not
found.
|
02FD6 |
(DoLam)
|
( lam → ob )
( lam → !error! )
Tries recalling object from lam, generates
"Undefined Local Name" error if not found.
|
078E9 |
(FIRST@LAM)
|
( lam → ob T )
( lam → F )
@LAM for first environment only.
|
078F5 |
(NTH@LAM)
|
( lam #n → ob T )
( lam #n → F )
@LAM for nth environment only.
|
075A5 |
GETLAM
|
( #n → ob )
Gets contents of nth topmost lam.
|
613B6 |
1GETLAM
|
( → ob )
|
613E7 |
2GETLAM
|
( → ob )
|
6140E |
3GETLAM
|
( → ob )
|
61438 |
4GETLAM
|
( → ob )
|
6145C |
5GETLAM
|
( → ob )
|
6146C |
6GETLAM
|
( → ob )
|
6147C |
7GETLAM
|
( → ob )
|
6148C |
8GETLAM
|
( → ob )
|
6149C |
9GETLAM
|
( → ob )
|
614AC |
10GETLAM
|
( → ob )
|
614BC |
11GETLAM
|
( → ob )
|
614CC |
12GETLAM
|
( → ob )
|
614DC |
13GETLAM
|
( → ob )
|
614EC |
14GETLAM
|
( → ob )
|
614FC |
15GETLAM
|
( → ob )
|
6150C |
16GETLAM
|
( → ob )
|
6151C |
17GETLAM
|
( → ob )
|
6152C |
18GETLAM
|
( → ob )
|
6153C |
19GETLAM
|
( → ob )
|
6154C |
20GETLAM
|
( → ob )
|
6155C |
21GETLAM
|
( → ob )
|
075E9 |
PUTLAM
|
( ob #n → )
Stores new contents to nth topmost lam.
|
615E0 |
1PUTLAM
|
( ob → )
|
615F0 |
2PUTLAM
|
( ob → )
|
61600 |
3PUTLAM
|
( ob → )
|
61615 |
4PUTLAM
|
( ob → )
|
61625 |
5PUTLAM
|
( ob → )
|
61635 |
6PUTLAM
|
( ob → )
|
61645 |
7PUTLAM
|
( ob → )
|
61655 |
8PUTLAM
|
( ob → )
|
61665 |
9PUTLAM
|
( ob → )
|
61675 |
10PUTLAM
|
( ob → )
|
61685 |
11PUTLAM
|
( ob → )
|
61695 |
12PUTLAM
|
( ob → )
|
616A5 |
13PUTLAM
|
( ob → )
|
616B5 |
14PUTLAM
|
( ob → )
|
616C5 |
15PUTLAM
|
( ob → )
|
616D5 |
16PUTLAM
|
( ob → )
|
616E5 |
17PUTLAM
|
( ob → )
|
616F5 |
18PUTLAM
|
( ob → )
|
61705 |
19PUTLAM
|
( ob → )
|
61715 |
20PUTLAM
|
( ob → )
|
61725 |
21PUTLAM
|
( ob → )
|
61735 |
22PUTLAM
|
( ob → )
|
61610 |
DUP4PUTLAM
|
( ob → ob )
Does DUP then <REF>4PUTLAM .
|
634B6 |
1GETABND
|
( → 1lamob )
Does <REF>1GETLAM then <REF>ABND .
|
62DB3 |
1ABNDSWAP
|
( ob → 1lamob ob )
Does <REF>1GETABND then SWAP.
|
62F07 |
1GETSWAP
|
( ob → 1lamob ob )
Does <REF>1GETLAM then SWAP.
|
55288 |
1GETLAMSWP1+
|
( # → 1lamob #+1 )
Does <REF>1GETLAM then SWAP#1+.
|
632E5 |
2GETEVAL
|
( → ? )
Does <REF>2GETLAM then <REF>EVAL .
|
617D8 |
GETLAMPAIR
|
( #n → #n ob lam F )
( #n → #n T )
Gets lam contents and name (10 = 1lam,
20 = 2lam, etc.)
|
61745 |
DUPTEMPEVN
|
( → )
Duplicates topmost temporary environment
(clears protection word).
|
61745 |
DUPTEMPENV
|
( → )
Duplicates topmost tempenv (clears
protection word).
|
34D2B |
1NULLLAM{}
|
( → {} )
Puts a list with one NULLLAM in the stack.
|
37DB9 |
(2NULLLAM{})
|
( → {} )
Puts a list with two times NULLLAM in the
stack.
|
37B17 |
(3NULLLAM{})
|
( → {} )
Puts a list with three times NULLLAM in the
stack.
|
52D26 |
(4NULLLAM{})
|
( → {} )
Puts a list with four times NULLLAM in the
stack.
|
3306C |
(7NULLLAM{})
|
( → {} )
Puts a list with seven times NULLLAM in the
stack.
|
10E36 |
(8NULLLAM{})
|
( → {} )
Puts a list with eight times NULLLAM in the
stack.
|