mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

Fix verify-cps

Browse source 
* module/language/cps/verify.scm (verify-cps): Fix.  Thanks to Steven
  H. Margolis for the note.  Fixes bug #19389.
This commit is contained in:
Andy Wingo 2015-01-25 11:39:42 +01:00
parent e7097386cb
commit 15e4746f17
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/verify.scm
View file

@ -1,6 +1,6 @@
;;; Continuation-passing style (CPS) intermediate language (IL) ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -129,7 +129,7 @@
(match fun (match fun
(($ $fun (free ...) entry) (($ $fun (free ...) entry)
(for-each (cut check-var <> v-env) free) (for-each (cut check-var <> v-env) free)
(visit-entry '() v-env)) (visit-entry entry '() v-env))
(_ (_
(error "unexpected $fun" fun)))) (error "unexpected $fun" fun))))