Commit 488cbe98 authored by Raymond Toy's avatar Raymond Toy
Browse files

Add a comment about continuing with 0

parent 23f449e4
Loading
Loading
Loading
Loading
Loading
+2 −0
Original line number Diff line number Diff line
@@ -1880,6 +1880,8 @@ the end of the stream."
            (error _"Underflow"))
          result))
    (floating-point-underflow ()
      ;; Resignal the underflow, but allow the user to continue with
      ;; 0.
      (let ((zero (coerce 0 float-format)))
        (restart-case
            (error 'floating-point-underflow)