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

Merge pull request #17 from woodrush/fix-eq

Browse source 
Fix bug for `EQ` where a null string is printed
This commit is contained in:
agreppin 2021-12-31 00:39:22 +01:00 committed by GitHub
commit 39ef281e64
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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