[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Fix verify-cps
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/01: Fix verify-cps |
Date: |
Sun, 25 Jan 2015 10:39:47 +0000 |
wingo pushed a commit to branch master
in repository guile.
commit 15e4746f17207658a7b1276b4cce042a5214a9ab
Author: Andy Wingo <address@hidden>
Date: Sun Jan 25 11:39:42 2015 +0100
Fix verify-cps
* module/language/cps/verify.scm (verify-cps): Fix. Thanks to Steven
H. Margolis for the note. Fixes bug #19389.
---
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 a39e99b..a52924b 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))))