mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Fix mistype in specialize-numbers

Browse source 
*
module/language/cps/specialize-numbers.scm (compute-specializable-u64-vars):
We were failing to match scm->u64/truncate.
This commit is contained in:
Andy Wingo 2023-11-20 15:11:08 +01:00
parent 5959531c54
commit 89501a83ce
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/specialize-numbers.scm
View file

@ -846,7 +846,7 @@ BITS indicating the significant bits needed for a variable. BITS may be
(_ #f))) (_ #f)))
(compute-specializable-vars cps body preds defs exp-result-u64? (compute-specializable-vars cps body preds defs exp-result-u64?
'(scm->u64 'scm->u64/truncate))) '(scm->u64 scm->u64/truncate)))
;; Compute vars whose definitions are all exact integers in the fixnum ;; Compute vars whose definitions are all exact integers in the fixnum
;; range and whose uses include an untag operation. ;; range and whose uses include an untag operation.