summaryrefslogtreecommitdiff
path: root/module/language
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-11-20 15:11:08 +0100
committerAndy Wingo <wingo@pobox.com>2023-11-20 15:11:29 +0100
commit89501a83ceec5ac4d3449e92ba2109fb77448b31 (patch)
treecba349bb461fd156cd405bd9d28066859305fe51 /module/language
parent5959531c54d1a164e638731b8d79633f454a3dbd (diff)
downloadguile-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.scm2
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.