diff options
| author | Charles.Forsyth <devnull@localhost> | 2007-08-06 14:40:52 +0000 |
|---|---|---|
| committer | Charles.Forsyth <devnull@localhost> | 2007-08-06 14:40:52 +0000 |
| commit | 3593ee734f38ded476eb177fa78710ec1d736041 (patch) | |
| tree | 5b8204a74e9ed31f26e286a95bf91cf7af68c149 /appl/lib/lists.b | |
| parent | d512a949c6449d8b38b5d49a17efa6414c75f753 (diff) | |
20070806-1539
Diffstat (limited to 'appl/lib/lists.b')
| -rw-r--r-- | appl/lib/lists.b | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/appl/lib/lists.b b/appl/lib/lists.b index e12a2e5d..2210c33e 100644 --- a/appl/lib/lists.b +++ b/appl/lib/lists.b @@ -59,9 +59,9 @@ concat[T](l: list of T, l2: list of T): list of T { if(l2 == nil) return l; - for(l = reverse(l); l2 != nil; l2 = tl l2) - l = hd l2 :: l; - return reverse(l); + for(rl1 := reverse(l); rl1 != nil; rl1 = tl rl1) + l2 = hd rl1 :: l2; + return l2; } combine[T](l: list of T, l2: list of T): list of T |