summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-03-02 16:39:56 +0100
committerAndy Wingo <wingo@pobox.com>2012-03-02 16:47:39 +0100
commit542aa859dede56545538fd90e6ee5b2abe3f5f25 (patch)
tree68c16685427b9d5a8c64228d7fdc629a3ba922e9
parent20337139d20d0587ebf78c05a7efa6db2337d2e6 (diff)
downloadguile-542aa859dede56545538fd90e6ee5b2abe3f5f25.tar.gz
tree-il: fix `canonicalize!' for prompts
* module/language/tree-il/canonicalize.scm (canonicalize!): Fix a bug in which the sense of `escape-only?' was reversed. We never saw this though, because for other reasons, no prompts were being identified as escape-only.
-rw-r--r--module/language/tree-il/canonicalize.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/module/language/tree-il/canonicalize.scm b/module/language/tree-il/canonicalize.scm
index 04f561282..c3229cab1 100644
--- a/module/language/tree-il/canonicalize.scm
+++ b/module/language/tree-il/canonicalize.scm
@@ -1,6 +1,6 @@
;;; Tree-il canonicalizer
-;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2012 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
@@ -58,10 +58,10 @@
(define (escape-only? handler)
(match handler
(($ <lambda-case> _ (_ . _) _ _ _ _ (cont . _) body #f)
- (tree-il-any (lambda (x)
- (and (lexical-ref? x)
- (eq? (lexical-ref-gensym x) cont)))
- body))
+ (not (tree-il-any (lambda (x)
+ (and (lexical-ref? x)
+ (eq? (lexical-ref-gensym x) cont)))
+ body)))
(else #f)))
(define (thunk-application? x)
(match x