summaryrefslogtreecommitdiff
path: root/module/language/tree-il/debug.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/debug.scm')
-rw-r--r--module/language/tree-il/debug.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/module/language/tree-il/debug.scm b/module/language/tree-il/debug.scm
index 3878fb526..773b84bee 100644
--- a/module/language/tree-il/debug.scm
+++ b/module/language/tree-il/debug.scm
@@ -1,6 +1,6 @@
;;; Tree-IL verifier
-;; Copyright (C) 2011, 2013, 2019 Free Software Foundation, Inc.
+;; Copyright (C) 2011,2013,2019,2023 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
@@ -244,9 +244,9 @@
(visit tail env))
(_
(error "unexpected tree-il" exp)))
- (let ((src (tree-il-src exp)))
- (if (and src (not (and (list? src) (and-map pair? src)
- (and-map symbol? (map car src)))))
- (error "bad src"))
- ;; Return it, why not.
- exp)))
+ (match (tree-il-srcv exp)
+ (#f #t)
+ (#((or #f (? string?)) exact-integer? exact-integer?) #t)
+ (src (error "bad src" src)))
+ ;; Return it, why not.
+ exp))