;;; 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
(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))))