diff options
Diffstat (limited to 'src/interp/dq.boot')
| -rw-r--r-- | src/interp/dq.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/dq.boot b/src/interp/dq.boot index 43b1f009..e46e4897 100644 --- a/src/interp/dq.boot +++ b/src/interp/dq.boot @@ -57,8 +57,8 @@ dqAppend(x,y)== else if null y then x else - RPLACD (CDR x,CAR y) - RPLACD (x, CDR y) + RPLACD (rest x,first y) + RPLACD (x, rest y) x dqConcat ld== @@ -68,7 +68,7 @@ dqConcat ld== then first ld else dqAppend(first ld,dqConcat rest ld) -dqToList s==if null s then nil else CAR s +dqToList s==if null s then nil else first s dqAddAppend(x,y)== if null x @@ -76,6 +76,6 @@ dqAddAppend(x,y)== else if null y then nil else - RPLACD (CDR x,CAR y) - RPLACD (x, CDR y) + RPLACD (rest x,first y) + RPLACD (x, rest y) x |