diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-12-26 13:09:24 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-12-26 20:00:01 +0100 |
| commit | d8939520535224ccee663bba5b3da752f1648009 (patch) | |
| tree | fb06309421c26e0d785f1acdabe551962d35db29 /lisp/emacs-lisp | |
| parent | fc02c8458d636e682b079a68f2ee7347e0299132 (diff) | |
| download | emacs-d8939520535224ccee663bba5b3da752f1648009.tar.gz emacs-d8939520535224ccee663bba5b3da752f1648009.tar.bz2 emacs-d8939520535224ccee663bba5b3da752f1648009.zip | |
Fix missing float handling into `comp-cstr-set-cmp-range'
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index 9d0c67177b2..1927207db63 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el @@ -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) |