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

* test-suite/tests/chars.test: Fixed test comment. The bug that

Browse source 
this test detects was actually introduced by my patch from
	2003-05-31.

	* libguile/eval.c: Partially undid my patch from 2003-05-31.  This
	patch caused the segfault referenced in the previous changelog
	entry.
This commit is contained in:
Dirk Herrmann 2003-06-04 23:50:13 +00:00
parent 47dbd81e77
commit f5c6ec2fb0
4 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-06-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c: Partially undid my patch from 2003-05-31. This patch
caused the segfault referenced in the previous changelog entry.
2003-06-05 Dirk Herrmann <D.Herrmann@tu-bs.de> 2003-06-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tags.h: Fixed comment about the immediate type code layout. * tags.h: Fixed comment about the immediate type code layout.

2
libguile/eval.c
View file

@ -2448,7 +2448,7 @@ dispatch:
/* new syntactic forms go here. */ /* new syntactic forms go here. */
case SCM_BIT7 (SCM_MAKISYM (0)): case SCM_BIT7 (SCM_MAKISYM (0)):
proc = SCM_CAR (x); proc = SCM_CAR (x);
if (!SCM_IFLAGP (proc)) if (!SCM_ISYMP (proc))
goto evapply; goto evapply;
switch (SCM_ISYMNUM (proc)) switch (SCM_ISYMNUM (proc))

5
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2003-06-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/chars.test: Fixed test comment. The bug that this test
detects was actually introduced by my patch from 2003-05-31.
2003-06-05 Dirk Herrmann <D.Herrmann@tu-bs.de> 2003-06-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/chars.test: Added test, attempting to apply a character. * tests/chars.test: Added test, attempting to apply a character.

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

@ -29,8 +29,7 @@
(with-test-prefix "evaluator" (with-test-prefix "evaluator"
;; Guile prior to 2003-06-05 segfaulted on the following test, because ;; The following test makes sure that the evaluator distinguishes between
;; within the evaluator there was no distinction between the
;; evaluator-internal instruction codes and characters. ;; evaluator-internal instruction codes and characters.
(pass-if-exception "evaluating chars" (pass-if-exception "evaluating chars"
exception:wrong-type-to-apply exception:wrong-type-to-apply