mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix missing float handling into `comp-cstr-set-cmp-range'

Browse source 
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-set-cmp-range): Add
	float handling.
	* test/src/comp-tests.el (comp-tests-type-spec-tests): Update results.
This commit is contained in:
Andrea Corallo 2020-12-26 13:09:24 +01:00
parent fc02c8458d
commit d893952053
2 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/comp-cstr.el
View file

@ -366,7 +366,7 @@ Return them as multiple value."
"Support range comparison functions."
(with-comp-cstr-accessors
(if ext-range
(setf (typeset dst) ()
(setf (typeset dst) (and (typeset old-dst) '(float))
(valset dst) ()
(range dst) (if (range old-dst)
(comp-range-intersection (range old-dst)