sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-04-27 14:57:41 +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 ret
.resolv:push %si .resolv:push %si
call Eval # do (fn si) → ((λ ...) si) call Assoc # do (fn si) → ((λ ...) si)
pop %si pop %si
Apply: test %ax,%ax # Apply(fn:ax,x:si:a:dx):ax Apply: test %ax,%ax # Apply(fn:ax,x:si:a:dx):ax
jns .switch # jump if atom jns .switch # jump if atom