Make write_term/1 and friends fail immediately if a blob write sets t…

…he stream in error state.
SWI-Prolog · Aug 9, 2023 · d49b1d7 · d49b1d7
1 parent b77380b
commit d49b1d7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/pl-write.c b/src/pl-write.c
@@ -751,7 +751,8 @@ writeAtom(atom_t a, write_options *options)
   }
 
   if ( atom->type->write )
-    return (*atom->type->write)(options->out, a, options->flags);
+    return ((*atom->type->write)(options->out, a, options->flags) &&
+	    !Sferror(options->out));
   if ( false(atom->type, PL_BLOB_TEXT) )
     return writeBlob(a, options);