diff options
author | Andy Wingo <wingo@pobox.com> | 2012-03-02 16:39:56 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-03-02 16:47:39 +0100 |
commit | 542aa859dede56545538fd90e6ee5b2abe3f5f25 (patch) | |
tree | 68c16685427b9d5a8c64228d7fdc629a3ba922e9 | |
parent | 20337139d20d0587ebf78c05a7efa6db2337d2e6 (diff) | |
download | guile-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.scm | 10 |
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 |