picolisp

commit 7d9096ae07e99911579e9f79958d694a9ceaf293
parent 7cd4a42efbad3f36fbc3cd49ef0c5b4ea08200e9
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  1 Mar 2011 12:38:05 +0100

Minor optimization
Diffstat:
M
src/main.c
 | 
4
++--
M
src64/main.l
 | 
2
--

2 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/src/main.c b/src/main.c
@@ -414,13 +414,13 @@ bool equal(any x, any y) {
                *(word*)&car(a) &= ~1,  a = cdr(a),  b = cdr(b);
             }
             do
-               *(word*)&car(a) &= ~1,  a = cdr(a),  b = cdr(b);
+               *(word*)&car(a) &= ~1,  a = cdr(a);
             while (a != x);
             return res;
          }
       }
       while (a != x)
-         *(word*)&car(a) &= ~1,  a = cdr(a),  b = cdr(b);
+         *(word*)&car(a) &= ~1,  a = cdr(a);
       return res;
    }
 }
diff --git a/src64/main.l b/src64/main.l
@@ -882,7 +882,6 @@
          do
             off (X) 1  # Unmark circular part
             ld X (X CDR)
-            ld Y (Y CDR)
             cmp X A
          until eq
          pop F  # Get result
@@ -897,7 +896,6 @@
    while ne
       off (X) 1  # Unmark
       ld X (X CDR)
-      ld Y (Y CDR)
    loop
    pop F  # Get result
    pop Y