diff options
author | Andy Wingo <wingo@pobox.com> | 2023-11-20 15:11:08 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2023-11-20 15:11:29 +0100 |
commit | 89501a83ceec5ac4d3449e92ba2109fb77448b31 (patch) | |
tree | cba349bb461fd156cd405bd9d28066859305fe51 /module/language | |
parent | 5959531c54d1a164e638731b8d79633f454a3dbd (diff) | |
download | guile-89501a83ceec5ac4d3449e92ba2109fb77448b31.tar.gz |
Fix mistype in specialize-numbers
*
module/language/cps/specialize-numbers.scm (compute-specializable-u64-vars):
We were failing to match scm->u64/truncate.
Diffstat (limited to 'module/language')
-rw-r--r-- | module/language/cps/specialize-numbers.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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. |