I am desperately trying to create a remove function, that will simply remove all items that equal to X from a list. After many changes, this is my code so far:

remove([], X, L1). /* when the source list is empty, stop*/
remove([X|T], X, L1) :- remove(T, X, L1).   /* when first element in the list equals X, don't append it to L1 */
remove([H|T], X, L1) :- remove(T, X, [H|L1]). /*when first element in the list doesn't equal X, append it to L1 */

when running on

remove([1,2,3,4,5], 3, R).

it returns two trues and nothing else. Anyone has any idea what I'm doing wrong?