09/06/09 12:20:20
>>118 間違いがありました。訂正します。
get_line(Stream,X) :-
findall(C,(repeat,get_char(C),(X='\n',!,fail;true)),X).
concat_atom(L,X).
は
get_line(Stream,X) :-
findall(C,(repeat,get_char(Stream,C),(C='\n',!,fail;true)),X).
concat_atom(L,X).
が正しい。
findall/3の中に2箇所誤りがありました。