mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix bug if call-with-prompt tag not a lexical

Browse source 
* module/language/tree-il/peval.scm (peval): peval could throw if the
call-with-prompt operand wasn't a lexical.  Terrible!
This commit is contained in:
Andy Wingo 2021-05-01 22:14:57 +02:00
parent 44a6a21dcc
commit d643913ac2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/peval.scm
View file

@ -1,6 +1,6 @@
;;; Tree-IL partial evaluator ;;; Tree-IL partial evaluator
;; Copyright (C) 2011-2014, 2017, 2019, 2020 Free Software Foundation, Inc. ;; Copyright (C) 2011-2014, 2017, 2019, 2020, 2021 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
@ -1650,7 +1650,7 @@ top-level bindings from ENV and return the resulting expression."
;; There is no way that an <abort> could know the tag ;; There is no way that an <abort> could know the tag
;; for this <prompt>, so we can elide the <prompt> ;; for this <prompt>, so we can elide the <prompt>
;; entirely. ;; entirely.
(unrecord-operand-uses op 1) (when op (unrecord-operand-uses op 1))
(for-tail (if escape-only? body (make-call src body '()))))) (for-tail (if escape-only? body (make-call src body '())))))
(else (else
(let ((handler (for-value handler))) (let ((handler (for-value handler)))