mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +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 -*- ;;;; 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 ;;;; 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 ;;;; it under the terms of the GNU General Public License as published by
@ -31,5 +31,5 @@
(set! (symbol->string 'x) 1)) (set! (symbol->string 'x) 1))
(pass-if-exception "(set! '#f 1)" (pass-if-exception "(set! '#f 1)"
exception:wrong-type-arg exception:bad-variable
(eval '(set! '#f 1) (interaction-environment))))) (eval '(set! '#f 1) (interaction-environment)))))