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

Expect a "Bad variable" error for (set! #f 1).

Browse source
This commit is contained in:
Marius Vollmer 2003-11-17 16:55:03 +00:00
parent 6d1a2e9f4b
commit 64daa01285
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/srfi-17.test
View file

@ -1,6 +1,6 @@
;;;; srfi-17.test --- test suite for Guile's SRFI-17 functions. -*- scheme -*-
;;;;
;;;; Copyright (C) 2001 Free Software Foundation, Inc.
;;;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@ -31,5 +31,5 @@
(set! (symbol->string 'x) 1))
(pass-if-exception "(set! '#f 1)"
exception:wrong-type-arg
exception:bad-variable
(eval '(set! '#f 1) (interaction-environment)))))