wingo pushed a commit to branch main in repository guile. commit 89501a83ceec5ac4d3449e92ba2109fb77448b31 Author: Andy Wingo <wi...@pobox.com> AuthorDate: Mon Nov 20 15:11:08 2023 +0100
Fix mistype in specialize-numbers * module/language/cps/specialize-numbers.scm (compute-specializable-u64-vars): We were failing to match scm->u64/truncate. --- module/language/cps/specialize-numbers.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/specialize-numbers.scm b/module/language/cps/specialize-numbers.scm index c7bb334bc..12c9deecc 100644 --- a/module/language/cps/specialize-numbers.scm +++ b/module/language/cps/specialize-numbers.scm @@ -846,7 +846,7 @@ BITS indicating the significant bits needed for a variable. BITS may be (_ #f))) (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 ;; range and whose uses include an untag operation.