projog

3.69. current_input(X) - match a term to the current input stream.

current_input(X) succeeds if the name of the current input stream matches with X, else fails.

Examples