Przeglądaj źródła

Fix bug for `EQ`

Hikaru Ikuta 3 lat temu
rodzic
commit
304eaab6ad
1 zmienionych plików z 1 dodań i 1 usunięć
  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