Fixed get get0

builtin.c

@@ -691,9 +691,6 @@ int b_get0(int arglist, int rest)
 	else
 		c = getc(GET_PORT(arg1));
 
-	if (c == EOL) {
-	    c = getc(GET_PORT(arg1));
-	}
 	if(c==EOF)
 		return(NO);
 
@@ -736,12 +733,10 @@ int b_get(int arglist, int rest)
 	else
 		c = getc(GET_PORT(arg1));
 
-	if (c == EOL)
-	    c = getc(GET_PORT(arg1));
 
 	if(c==EOF)
 		return(NO);
-	
+
 	i = (int) c;
 	if (c == EOL)
 	    goto exit;

tests/bug.pl

@@ -1,3 +1,30 @@
+% 9-queens program
 
 
-
+test16 :- between(1,16,X),test1,fail.
+
+test :- queen([1,2,3,4,5,6,7,8,9],X),write(X),nl,fail.
+test1 :- queen([1,2,3,4,5,6,7,8,9],X),fail.
+
+queen(Data, Out) :-
+    queen_2(Data, [], Out).
+
+queen_2([], _, []).
+queen_2([H|T], History, [Q|M]) :-
+    qdelete(Q, H, T, L1),
+    nodiag(History, Q, 1),
+    queen_2(L1, [Q|History], M).
+
+
+qdelete(A, A, L, L).
+qdelete(X, A, [H|T], [A|R]) :-
+    qdelete(X, H, T, R).
+
+
+nodiag([], _, _).
+nodiag([N|L], B, D) :-
+    D =\= N - B,
+    D =\= B - N,
+    D1 is D + 1,
+    nodiag(L, B, D1).
+

tests/iitaka.pl

@@ -135,4 +135,11 @@
            repeat,
            while_do(get0(H,C),put(C)),
            close(H),!.
+
+copy_file(File_nameX,File_nameY):-
+           open(H1,File_nameX,r),
+           create(H2,File_nameY),
+           repeat,
+           while_do(get0(H1,C),put(H2,C)),
+           close(H1),close(H2),!.