prolog'一旦会员'不工作

Question

我有一个方法，它接受一个字符串并将其转换为一个句子，然后在我的程序中使用，但是如果我输入'quit / exit / halt / q'，我试图让它退出/退出，但它似乎没有用，有什么帮助吗？

read_sentence([FirstWord|RestOfSentence]) :-
    readSentence([FirstWord|RestOfSentence]).

readSentence(quit).
readSentence([FirstWord|RestOfSentence]) :-
    get0(Char),
    once(member(FirstWord,[quit,exit,q])),
    readWord(Char,FirstWord,NextChar),
    readRestOfSentence(FirstWord,NextChar,RestOfSentence).

我试图使用一次成员调用退出，但它不起作用。