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

Shave two bytes

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-06 13:23:54 +09:00
parent 36678457f3
commit 9ca97d2ea7
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sectorlisp.S
View file

@ -109,10 +109,8 @@ PrintObject: # PrintObject(x:si)
Print: test %si,%si
jz NewLine
mov (%si),%si # ax = Car(Cdr(e))
push %dx
call PrintObject
xchg %dx,%ax
pop %dx
ret
NewLine:mov $'\r',%al