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

* test.scm: Re-enable tests asserting that '() is true, and not a

Browse source 
boolean.  This stuff has been true for a while.
This commit is contained in:
Jim Blandy 1997-06-13 05:50:28 +00:00
parent 832b09eda7
commit c6b15ad07e
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/test.scm
View file

@ -273,15 +273,13 @@
(test #f not 3)
(test #f not (list 3))
(test #t not #f)
;;; Not for Guile
;(test #f not '())
;(test #f not (list))
(test #f not '())
(test #f not (list))
(test #f not 'nil)
(test #t boolean? #f)
(test #f boolean? 0)
;;; Not for Guile
;(test #f boolean? '())
(test #f boolean? '())
(SECTION 6 2)
(test #t eqv? 'a 'a)
(test #f eqv? 'a 'b)