Skip to content
Snippets Groups Projects
Commit 40f63ef5 authored by dtc's avatar dtc
Browse files

Correction to previous interval-div patch.

parent 82f736ef
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.74 1998/01/07 22:54:06 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.75 1998/01/07 23:30:59 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -682,9 +682,8 @@ ...@@ -682,9 +682,8 @@
(interval-neg (interval-div (interval-neg top) bot))) (interval-neg (interval-div (interval-neg top) bot)))
((and (eq top-range '+) (eq bot-range '+)) ((and (eq top-range '+) (eq bot-range '+))
;; The easy case ;; The easy case
(make-interval :low (bound-div (interval-low top) (interval-high bot)) (make-interval :low (bound-div (interval-low top) (interval-high bot) t)
:high (bound-div (interval-high top) (interval-low bot)))) :high (bound-div (interval-high top) (interval-low bot) nil)))
(t (t
(error "This shouldn't happen!")))))) (error "This shouldn't happen!"))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment