Rename $ktrunc to $kreceive

[bpt/guile.git] / module / language / cps / effects-analysis.scm

diff --git a/module/language/cps/effects-analysis.scm b/module/language/cps/effects-analysis.scm
index 9db88b7..46c7e88 100644 (file)
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -1,6 +1,6 @@
 ;;; Effects analysis on CPS
 
-;; Copyright (C) 2011, 2012, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2012, 2013, 2014 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
@@ -466,7 +466,7 @@
          (match (lookup-cont (cfa-k-sym cfa n) (dfg-cont-table dfg))
            (($ $kargs names syms body)
             (expression-effects (find-expression body) dfg))
-           (($ $ktrunc arity kargs)
+           (($ $kreceive arity kargs)
             (match arity
               (($ $arity _ () #f () #f) (cause &type-check))
               (($ $arity () () _ () #f) (cause &allocation))