so that I don't have an excuse to call current_stream(_,_,S) with S something not a stream. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@39 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
so that I don't have an excuse to call current_stream(_,_,S) with S something not a stream. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@39 b08c6af1-5177-4d33-ba66-4b1c6b8b522a