* doc/ref/posix.texi (Pipes): Use UNLESS in OPEN-OUTPUT-PIPE example.
---
doc/ref/posix.texi | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/doc/ref/posix.texi b/doc/ref/posix.texi
index b2be9d707..ce753b864 100644
--- a/doc/ref/posix.texi
+++ b/doc/ref/posix.texi
@@ -2335,8 +2335,8 @@ Equivalent to @code{open-pipe} with mode
@code{OPEN_WRITE}.
@lisp
(let ((port (open-output-pipe "lpr")))
(display "Something for the line printer.\n" port)
- (if (not (eqv? 0 (status:exit-val (close-pipe port))))
- (error "Cannot print")))
+ (unless (eqv? 0 (status:exit-val (close-pipe port))))
+ (error "Cannot print"))
@end lisp
@end deffn
--
2.26.2
