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

handle different errors messages for unbound variables

Browse source
This commit is contained in:
Michael Gran 2022-10-20 22:09:43 -07:00
parent 993ac2fd74
commit 1e0cf93a0a
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/tests/syntax.test
View file

@ -91,7 +91,8 @@
"sequence of zero expressions") "sequence of zero expressions")
(define exception:variable-ref (define exception:variable-ref
'(misc-error . "Unbound variable")) ;; Catch both "Variable is unbound" and "Unbound variable"
'(misc-error . "nbound"))
;; (put 'pass-if-syntax-error 'scheme-indent-function 1) ;; (put 'pass-if-syntax-error 'scheme-indent-function 1)
(define-syntax pass-if-syntax-error (define-syntax pass-if-syntax-error