Home Explore Help
Register Sign In
FangSoftSoft
/
sectorlisp
mirror of https://github.com/jart/sectorlisp.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Simplify

Hikaru Ikuta 3 years ago
parent
f14c20a5b6
commit
c84eed864f
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      sectorlisp.S

+ 1 - 1
sectorlisp.S
View File 

@@ -108,7 +108,7 @@ PrintObject:					# PrintObject(x:si)
 
 
 
 Print:	test	%si,%si
 
 Print:	test	%si,%si
 
 	jz	NewLine
 
 	jz	NewLine
 
-	mov	(%si),%si			# ax = Car(Cdr(e))
 
+	xchg	%di,%si
 
 	call	PrintObject
 
 	call	PrintObject
 
 	ret
 
 	ret