diff options
| author | Andy Wingo <wingo@pobox.com> | 2015-01-25 11:39:42 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-25 11:39:42 +0100 |
| commit | 15e4746f17207658a7b1276b4cce042a5214a9ab (patch) | |
| tree | 56307962af2a2aa0694089bc5dd572a30d01e432 | |
| parent | e7097386cb28f04cfeedc11415b06623ee2ac70c (diff) | |
| download | guile-15e4746f17207658a7b1276b4cce042a5214a9ab.tar.gz | |
Fix verify-cps
* module/language/cps/verify.scm (verify-cps): Fix. Thanks to Steven
H. Margolis for the note. Fixes bug #19389.
| -rw-r--r-- | module/language/cps/verify.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/cps/verify.scm b/module/language/cps/verify.scm index a39e99b8c..a52924b0b 100644 --- a/module/language/cps/verify.scm +++ b/module/language/cps/verify.scm @@ -1,6 +1,6 @@ ;;; Continuation-passing style (CPS) intermediate language (IL) -;; Copyright (C) 2013, 2014 Free Software Foundation, Inc. +;; Copyright (C) 2013, 2014, 2015 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 @@ -129,7 +129,7 @@ (match fun (($ $fun (free ...) entry) (for-each (cut check-var <> v-env) free) - (visit-entry '() v-env)) + (visit-entry entry '() v-env)) (_ (error "unexpected $fun" fun)))) |