浏览代码

Merge pull request #17 from woodrush/fix-eq

Fix bug for `EQ` where a null string is printed
agreppin 3 年之前
父节点
当前提交
39ef281e64
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      sectorlisp.S

+ 1 - 1
sectorlisp.S

@@ -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