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

Fix bug for EQ

Browse source
This commit is contained in:
Hikaru Ikuta 2021-12-31 04:56:54 +09:00
parent ec8c0ce6df
commit 304eaab6ad
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

@ -219,7 +219,7 @@ Pairlis:test %di,%di # Pairlis(x:di,y:si,a:dx):dx
.ifCons:mov (%bx,%si),%si # si = Cdr(x) .ifCons:mov (%bx,%si),%si # si = Cdr(x)
lodsw # si = Cadr(x) lodsw # si = Cadr(x)
je Cons je Cons
.isEq: xor %ax,%di .isEq: xor %di,%ax
jne .retF jne .retF
.retT: mov $kT,%al .retT: mov $kT,%al
ret ret