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:48:00 -08:00
parent f6e8f51307
commit fe04b145b5
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

@ -180,7 +180,7 @@ GetList:call GetToken
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