make length steadfast (from Ulrich Neumerkel).

2009-05-15 20:54:14 -05:00 · 2009-05-15 20:54:14 -05:00 · 8cfd6cf7fc
commit 8cfd6cf7fc
parent 7953004610
1 changed files with 1 additions and 1 deletions
--- a/pl/sort.yap
+++ b/pl/sort.yap
@ -37,9 +37,9 @@ length(L,M) :- '$$_length2'(M,L).
 		->
          L = []
        ;
-	  L = [_|L1],
 	  N > 0,
 	  N1 is N - 1,
+	  L = [_|L1],
 	  '$$_length2'(N1, L1)
        ).