diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-12-27 15:51:57 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-12-27 21:33:42 +0100 |
| commit | 92af4e8fc97a3af043904c32488b84c0e943473d (patch) | |
| tree | b82a6794a77dfd1f582b06ba84327a5f226149b9 /lisp/emacs-lisp/comp-cstr.el | |
| parent | 34e9aae4407aceb54c7b6bc4c9b4e3e10ec62314 (diff) | |
| download | emacs-92af4e8fc97a3af043904c32488b84c0e943473d.tar.gz emacs-92af4e8fc97a3af043904c32488b84c0e943473d.tar.bz2 emacs-92af4e8fc97a3af043904c32488b84c0e943473d.zip | |
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-set-cmp-range): Improve.
Diffstat (limited to 'lisp/emacs-lisp/comp-cstr.el')
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index 62e3c47ce3a..d41501e6804 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el @@ -374,7 +374,10 @@ Return them as multiple value." "Support range comparison functions." (with-comp-cstr-accessors (if ext-range - (setf (typeset dst) (and (typeset old-dst) '(float)) + (setf (typeset dst) (when (cl-some (lambda (x) + (comp-subtype-p 'float x)) + (typeset old-dst)) + '(float)) (valset dst) () (range dst) (if (range old-dst) (comp-range-intersection (range old-dst) |