sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-03-25 09:05:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Have Apply call Assoc

Browse source
This commit is contained in:
Justine Tunney 2021-12-12 14:49:02 -08:00
parent 540034fd2f
commit ec8c0ce6df
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sectorlisp.S
View file

@ -186,7 +186,7 @@ Gc: cmp %dx,%di # Gc(x:di,A:dx,B:si):ax
ret
.resolv:push %si
call Eval # do (fn si) → ((λ ...) si)
call Assoc # do (fn si) → ((λ ...) si)
pop %si
Apply: test %ax,%ax # Apply(fn:ax,x:si:a:dx):ax
jns .switch # jump if atom