Commit 76e97c68 authored by Antoine Martin's avatar Antoine Martin
Browse files

Remove useless loop name

parent 90859610
......@@ -140,15 +140,15 @@ The resulting file is written at ~/quickref/index.html"
(log-errors *log-errors*))
(let ((*makeinfo-path* makeinfo-path)
(*log-errors* log-errors))
(loop :named l do
(let ((release nil))
(with-mutex (mutex)
(unless *buffer*
(condition-wait wq mutex))
(setf release (pop *buffer*)))
(when (eql release :done)
(return-from build-texis-thread))
(let ((file (from-quickref-dir
(format nil "texis/~A.texi" release))))
(when (probe-file file)
(build-texi file)))))))
(loop do
(let ((release nil))
(with-mutex (mutex)
(unless *buffer*
(condition-wait wq mutex))
(setf release (pop *buffer*)))
(when (eql release :done)
(return-from build-texis-thread))
(let ((file (from-quickref-dir
(format nil "texis/~A.texi" release))))
(when (probe-file file)
(build-texi file)))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment