mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix a check in the Tree-IL verifier

Browse source 
* module/language/tree-il/debug.scm (verify-tree-il): Fix
pattern-matching.
This commit is contained in:
Andy Wingo 2025-01-22 12:14:30 +01:00
parent 0b501477f9
commit 787e49f137
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/debug.scm
View file

@ -1,6 +1,6 @@
;;; Tree-IL verifier ;;; Tree-IL verifier
;; Copyright (C) 2011,2013,2019,2023 Free Software Foundation, Inc. ;; Copyright (C) 2011,2013,2019,2023,2025 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
@ -246,7 +246,7 @@
(error "unexpected tree-il" exp))) (error "unexpected tree-il" exp)))
(match (tree-il-srcv exp) (match (tree-il-srcv exp)
(#f #t) (#f #t)
(#((or #f (? string?)) exact-integer? exact-integer?) #t) (#((or #f (? string?)) (? exact-integer?) (? exact-integer?)) #t)
(src (error "bad src" src))) (src (error "bad src" src)))
;; Return it, why not. ;; Return it, why not.
exp)) exp))