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 3072a6368c644992139f101cc5f496f68c60550c
parent a17c69284e8338de4ee4e4a5c69e11b1384f1c19
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  6 Apr 2011 12:22:31 +0200

'rol' -> 'shr', as the effect on carry is not defined for 'rol'
Diffstat:
Msrc64/main.l | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src64/main.l b/src64/main.l @@ -1,4 +1,4 @@ -# 05apr11abu +# 06apr11abu # (c) Software Lab. Alexander Burger (code 'Code 0) @@ -961,7 +961,7 @@ call nameE_E # Second name in E cmp E ZERO # Any? if eq # No - rol B 4 # Random bit from A (...x1000) into carry (non-zero) + shr A 5 # Random bit from A (...x1000) into carry (non-zero) else setc # lt end