picolisp

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:
M
src64/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