diff options
Diffstat (limited to 'module/language/cps/switch.scm')
-rw-r--r-- | module/language/cps/switch.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/cps/switch.scm b/module/language/cps/switch.scm index c600d11ab..f4ae40567 100644 --- a/module/language/cps/switch.scm +++ b/module/language/cps/switch.scm @@ -1,6 +1,6 @@ ;;; Continuation-passing style (CPS) intermediate language (IL) -;; Copyright (C) 2020 Free Software Foundation, Inc. +;; Copyright (C) 2020, 2023 Free Software Foundation, Inc. ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -371,7 +371,7 @@ object." (letk khash ($kargs () () ($continue kidx #f - ($primcall 'word-ref/immediate '(symbol . 2) (var))))) + ($primcall 'symbol-hash #f (var))))) (letk ksym ($kargs () () ($branch next khash #f 'symbol? #f (var)))) |