projog

3.70. current_output(X) - match a term to the current output stream.

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

Examples