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

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)
lodsw # si = Cadr(x)
je Cons
.isEq: xor %ax,%di
.isEq: xor %di,%ax
jne .retF
.retT: mov $kT,%al
ret