picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 887a6a3395457c6b339d78d45a8f9662a2ff300f
parent ad1140e51b7eb3394b7429ea06d150d93ebb0c8a
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 26 Feb 2011 19:07:57 +0100

Minor cosmetics
Diffstat:
Msrc64/big.l | 22+++++++++++-----------
Msrc64/err.l | 30+++++++++++++++---------------
Msrc64/flow.l | 12++++++------
Msrc64/io.l | 4++--
Msrc64/main.l | 16++++++++--------
Msrc64/sym.l | 6+++---
6 files changed, 45 insertions(+), 45 deletions(-)

diff --git a/src64/big.l b/src64/big.l @@ -1,4 +1,4 @@ -# 23jan11abu +# 26feb11abu # (c) Software Lab. Alexander Burger ### Destructive primitives ### @@ -1704,7 +1704,7 @@ end sub A (char "0") # First digit cmp A 10 # Too big? - jnc 99 # Return NO + jge 99 # Return NO shl A 4 # Make short number or A CNT ld (L I) A # Save @@ -1717,7 +1717,7 @@ if z # No sub A (char "0") # Next digit cmp A 10 # Too big? - jnc 99 # Return NO + jge 99 # Return NO cmp A 5 # Round? if ge # Yes ld A ONE # Increment @@ -1732,7 +1732,7 @@ while nz # Yes sub A (char "0") # Next digit cmp A 10 # Too big? - jnc 99 # Return NO + jge 99 # Return NO loop break T end @@ -1747,7 +1747,7 @@ if ne # No sub A (char "0") # Next digit cmp A 10 # Too big? - jnc 99 # Return NO + jge 99 # Return NO push C # Save symByte args push X push A # Save digit @@ -1861,7 +1861,7 @@ add A C # Add BCD-Carry ld C 0 # Clear BCD-Carry cmp A 1000000000000000000 # BCD overflow? - if nc # Yes + if ge # Yes sub A 1000000000000000000 ld C 1 # Set BCD-Carry end @@ -1885,7 +1885,7 @@ add A C # Add BCD-Carry ld C 0 # Clear BCD-Carry cmp A 1000000000000000000 # BCD overflow? - if nc # Yes + if ge # Yes sub A 1000000000000000000 ld C 1 # Set BCD-Carry end @@ -2776,7 +2776,7 @@ ld A (E DIG) # Get digit and A (C DIG) # Match? cmp A (C DIG) - jnz 10 # No: Return NIL + jne 10 # No: Return NIL ld C (C BIG) ld E (E BIG) loop @@ -2825,7 +2825,7 @@ ld E (Y) eval # Eval next arg cmp E Nil - jz 10 # Abort if NIL + jeq 10 # Abort if NIL num E # Number? jz numErrEX # No off E SIGN # Clear sign @@ -2865,7 +2865,7 @@ ld E (Y) eval # Eval next arg cmp E Nil - jz 10 # Abort if NIL + jeq 10 # Abort if NIL num E # Number? jz numErrEX # No off E SIGN # Clear sign @@ -2905,7 +2905,7 @@ ld E (Y) eval # Eval next arg cmp E Nil - jz 10 # Abort if NIL + jeq 10 # Abort if NIL num E # Number? jz numErrEX # No off E SIGN # Clear sign diff --git a/src64/err.l b/src64/err.l @@ -1,4 +1,4 @@ -# 16feb11abu +# 26feb11abu # (c) Software Lab. Alexander Burger # Debug print routine @@ -319,9 +319,9 @@ sym A jz symErrAX cmp A Nil # A < NIL ? - jc ret # Yes + jlt ret # Yes cmp A TSym # A > T ? - jncz Ret # Yes + jgt Ret # Yes ld E A jmp protErrEX @@ -331,18 +331,18 @@ sym E jz symErrEX cmp E Nil # E < NIL ? - jc ret # Yes + jlt ret # Yes cmp E TSym # E > T ? - jncz Ret # Yes + jgt Ret # Yes jmp protErrEX (code 'needVarAX 0) num A # Need variable jnz varErrAX cmp A Nil # A < NIL ? - jc ret # Yes + jlt ret # Yes cmp A TSym # A > T ? - jncz Ret # Yes + jgt Ret # Yes ld E A jmp protErrEX @@ -350,32 +350,32 @@ num E # Need variable jnz varErrEX cmp E Nil # E < NIL ? - jc ret # Yes + jlt ret # Yes cmp E TSym # E > T ? - jncz Ret # Yes + jgt Ret # Yes jmp protErrEX (code 'checkVarAX 0) cmp A Nil # A < NIL ? - jc ret # Yes + jlt ret # Yes cmp A TSym # A > T ? - jncz Ret # Yes + jgt Ret # Yes ld E A jmp protErrEX (code 'checkVarYX 0) cmp Y Nil # Y < NIL ? - jc ret # Yes + jlt ret # Yes cmp Y TSym # Y > T ? - jncz Ret # Yes + jgt Ret # Yes ld E Y jmp protErrEX (code 'checkVarEX 0) cmp E Nil # E < NIL ? - jc ret # Yes + jlt ret # Yes cmp E TSym # E > T ? - jncz Ret # Yes + jgt Ret # Yes (code 'protErrEX) ld Y ProtErr jmp errEXYZ diff --git a/src64/flow.l b/src64/flow.l @@ -1,4 +1,4 @@ -# 25feb11abu +# 26feb11abu # (c) Software Lab. Alexander Burger (code 'redefMsgEC) @@ -1971,7 +1971,7 @@ while z # Yes ld C ((X)) # Item(s) in C cmp C TSym # Catch-all? - jz 10 # Yes + jeq 10 # Yes ld A (At) # Equal to argument item? ld E C call equalAE_F @@ -2021,10 +2021,10 @@ ld X (Y) # Get clause in X ld E (X) # Get sym|lst in E cmp E TSym # T? - jz 10 # Yes + jeq 10 # Yes ld A ((L I)) # 'var's value cmp A E # Same? - jz 10 # Yes + jeq 10 # Yes do # 'memq' atom E # List? while z # Yes @@ -2501,9 +2501,9 @@ null C # Any? jz throwErrZX # No cmp (C I) TSym # Catch-all? - while nz # No + while ne # No cmp Z (C I) # Found tag? - while nz # No + while ne # No ld C (C) # Next frame loop push E # Save thrown value diff --git a/src64/io.l b/src64/io.l @@ -1,4 +1,4 @@ -# 05feb11abu +# 26feb11abu # (c) Software Lab. Alexander Burger # Close file descriptor @@ -1511,7 +1511,7 @@ ld (Y I) A # Store 'fd' shl A 3 # Vector index cmp A (OutFDs) # 'fd' >= 'OutFDs'? - jnc badFdErrEX # Yes + jge badFdErrEX # Yes add A (OutFiles) # Get vector ld A (A) # Slot? null A # Any? diff --git a/src64/main.l b/src64/main.l @@ -1,4 +1,4 @@ -# 21feb11abu +# 26feb11abu # (c) Software Lab. Alexander Burger ### Global return labels ### @@ -784,7 +784,7 @@ ### Comparisons ### (code 'equalAE_F 0) cmp A E # Pointer-equal? - jz ret # Yes: 'eq' + jeq ret # Yes: 'eq' cnt A # A short? jnz ret # Yes: 'ne' big A # A big? @@ -911,7 +911,7 @@ (code 'compareAE_F 0) # C cmp A E # Pointer-equal? - jz ret # Yes + jeq ret # Yes cmp A Nil if eq # [NIL E] 10 or B B # nz @@ -929,7 +929,7 @@ num E # Both? jnz cmpNumAE_F # [<num> <num>] cmp E Nil - jz 30 # [<num> NIL] + jeq 30 # [<num> NIL] setc # lt ret end @@ -938,11 +938,11 @@ num E jnz 40 # [<sym> <num>] cmp E Nil - jz 30 # [<sym> NIL] + jeq 30 # [<sym> NIL] atom E jz 10 # [<sym> <cell>] cmp E TSym - jz 10 # [<sym> T] + jeq 10 # [<sym> T] push X # [<sym> <sym>] ld X (A TAIL) call nameX_X # Get A's name in X @@ -989,7 +989,7 @@ end do cmp B C # Bytes equal? - jnz 70 # No: lt or gt + jne 70 # No: lt or gt shr A 8 # Next byte in A? if z # No shr C 8 # Next byte in C? @@ -1327,7 +1327,7 @@ inc Y # Increment buffer pointer loop cmp Y Z # At start of buffer? - jz 90 # Yes + jeq 90 # Yes nul (Y 1) # At end of buffer? jz 90 # Yes set (Y) 0 # Replace colon with null byte diff --git a/src64/sym.l b/src64/sym.l @@ -1,4 +1,4 @@ -# 03sep10abu +# 26feb11abu # (c) Software Lab. Alexander Burger ### Compare long names ### @@ -691,7 +691,7 @@ sym E jz retnz # No cmp E Nil # NIL? - jz ret # Yes + jeq ret # Yes sym (E TAIL) # External symbol? jnz ret # Yes push X @@ -1275,7 +1275,7 @@ ld X (E CDR) # Args call evSymX_E # Eval first cmp E Nil # NIL? - if nz + if ne # No ld E (E TAIL) call nameE_E # Get name link