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.
|
36518 |
1LAMBIND
|
( ob → )
Binds one object to a null named lam.
|
36513 |
DUP1LAMBIND
|
( ob → ob )
Does DUP then <REF>1LAMBIND.
|
155006 |
^2LAMBIND
|
( ob1 ob2 → )
Binds two objects to null named lams.
|
156006 |
^3LAMBIND
|
( ob1 ob2 ob3 → )
Binds three objects to null named lams.
|
0DE0B0 |
~nNullBind
|
( obn..ob1 #n → )
Binds #n objects to null named lams. 1LAM has
the count, 2LAM the first object. Decompiles
to
:: ' NULLLAM CACHE ;
|
36A77 |
dvarlsBIND
|
( ob → )
Binds ob to LAM 'dvar.
|
07497 |
ABND
|
( → )
Abandons topmost temporary environment.
|
2A7CF |
(ABNDTrue)
|
( → T )
Does <REF>ABND then TRUE.
|
2A7E3 |
(ABNDFalse)
|
( → F )
Does FALSE then <REF>ABND .
|
34D00 |
CACHE
|
( obn..ob1 #n lam → )
Binds all objects under the same name. 1LAM
has the count.
|
34EBE |
DUMP
|
( NULLLAM → ob1..obn #n )
Inverse of CACHE. Always does garbage
collection.
|
34D58 |
SAVESTACK
|
( → )
Caches stack to SAVELAM.
|
2EF72 |
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.
|
34FA6 |
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.
|
34616 |
1GETLAM
|
( → ob )
|
34620 |
2GETLAM
|
( → ob )
|
3462A |
3GETLAM
|
( → ob )
|
34634 |
4GETLAM
|
( → ob )
|
3463E |
5GETLAM
|
( → ob )
|
34648 |
6GETLAM
|
( → ob )
|
34652 |
7GETLAM
|
( → ob )
|
3465C |
8GETLAM
|
( → ob )
|
34666 |
9GETLAM
|
( → ob )
|
34670 |
10GETLAM
|
( → ob )
|
3467A |
11GETLAM
|
( → ob )
|
34684 |
12GETLAM
|
( → ob )
|
3468E |
13GETLAM
|
( → ob )
|
34698 |
14GETLAM
|
( → ob )
|
346A2 |
15GETLAM
|
( → ob )
|
346AC |
16GETLAM
|
( → ob )
|
346B6 |
17GETLAM
|
( → ob )
|
346C0 |
18GETLAM
|
( → ob )
|
346CA |
19GETLAM
|
( → ob )
|
346D4 |
20GETLAM
|
( → ob )
|
346DE |
21GETLAM
|
( → ob )
|
346E8 |
22GETLAM
|
( → ob )
|
346F2 |
(23GETLAM)
|
( → ob )
|
346FC |
(24GETLAM)
|
( → ob )
|
34706 |
(25GETLAM)
|
( → ob )
|
34710 |
(26GETLAM)
|
( → ob )
|
3471A |
(27GETLAM)
|
( → ob )
|
075E9 |
PUTLAM
|
( ob #n → )
Stores new contents to nth topmost lam.
|
34611 |
1PUTLAM
|
( ob → )
|
3461B |
2PUTLAM
|
( ob → )
|
34625 |
3PUTLAM
|
( ob → )
|
3462F |
4PUTLAM
|
( ob → )
|
34639 |
5PUTLAM
|
( ob → )
|
34643 |
6PUTLAM
|
( ob → )
|
3464D |
7PUTLAM
|
( ob → )
|
34657 |
8PUTLAM
|
( ob → )
|
34661 |
9PUTLAM
|
( ob → )
|
3466B |
10PUTLAM
|
( ob → )
|
34675 |
11PUTLAM
|
( ob → )
|
3467F |
12PUTLAM
|
( ob → )
|
34689 |
13PUTLAM
|
( ob → )
|
34693 |
14PUTLAM
|
( ob → )
|
3469D |
15PUTLAM
|
( ob → )
|
346A7 |
16PUTLAM
|
( ob → )
|
346B1 |
17PUTLAM
|
( ob → )
|
346BB |
18PUTLAM
|
( ob → )
|
346C5 |
19PUTLAM
|
( ob → )
|
346CF |
20PUTLAM
|
( ob → )
|
346D9 |
21PUTLAM
|
( ob → )
|
346E3 |
22PUTLAM
|
( ob → )
|
346ED |
(23PUTLAM)
|
( ob → )
|
346F7 |
(24PUTLAM)
|
( ob → )
|
34701 |
(25PUTLAM)
|
( ob → )
|
3470B |
(26PUTLAM)
|
( ob → )
|
34715 |
(27PUTLAM)
|
( ob → )
|
3471F |
(DUP1PUTLAM)
|
( ob → ob )
|
34729 |
(DUP2PUTLAM)
|
( ob → ob )
|
34797 |
DUP4PUTLAM
|
( ob → ob )
Does DUP then <REF>4PUTLAM .
|
34724 |
(1GETLAMSWAP)
|
( ob → ob' ob )
Does <REF>1GETLAM then SWAP.
|
3472E |
(2GETLAMSWAP)
|
( ob → ob' ob )
Does <REF>2GETLAM then SWAP.
|
364FF |
1GETABND
|
( → 1lamob )
Does <REF>1GETLAM then <REF>ABND .
|
35DEE |
1ABNDSWAP
|
( ob → 1lamob ob )
Does <REF>1GETABND then SWAP.
|
35F42 |
1GETSWAP
|
( ob → 1lamob ob )
Does <REF>1GETLAM then SWAP.
|
2F318 |
1GETLAMSWP1+
|
( # → 1lamob #+1 )
Does <REF>1GETLAM then SWAP#1+.
|
3632E |
2GETEVAL
|
( → ? )
Does <REF>2GETLAM then <REF>EVAL .
|
3483E |
GETLAMPAIR
|
( #n → #n ob lam F )
( #n → #n T )
Gets lam contents and name (10 = 1lam,
20 = 2lam, etc.)
|
347AB |
DUPTEMPENV
|
( → )
Duplicates topmost tempenv (clears
protection word).
|
2B3A6 |
1NULLLAM{}
|
( → {} )
Puts a list with one NULLLAM in the stack.
|
271F4 |
(2NULLLAM{})
|
( → {} )
Puts a list with two times NULLLAM in the
stack.
|
27208 |
(3NULLLAM{})
|
( → {} )
Puts a list with three times NULLLAM in the
stack.
|
2B3B7 |
4NULLLAM{}
|
( → {} )
Puts a list with four times NULLLAM in the
stack.
|
27AB7 |
(8NULLLAM{})
|
( → {} )
Puts a list with eight times NULLLAM in the
stack.
|