mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 03:00:19 +02:00
Code Activity

* libguile/eval.c: Sorted include files alphabetically.

Browse source 
(scm_m_begin): Added comment.

	(scm_m_or): Use ASSERT_SYNTAX to signal syntax errors.  Avoid
	unnecessary consing when creating the memoized code.

	(iqq, scm_m_quasiquote, scm_m_quote): Use ASSERT_SYNTAX to signal
	syntax errors.  Be more specific about the kind of error that was
	detected.

	(scm_m_quote, unmemocopy): As an optimization, vector constants
	are now inserted unquoted into the memoized code.  During
	unmemoization the quotes are added again to provide syntactically
	correct code.

	* test-suite/tests/syntax.test (exception:missing/extra-expr,
	exception:missing/extra-expr-misc): Renamed
	exception:missing/extra-expr to exception:missing/extra-expr-misc.

	(exception:missing/extra-expr-syntax,
	exception:missing/extra-expr): Renamed
	exception:missing/extra-expr-syntax to
	exception:missing/extra-expr.
This commit is contained in:
Dirk Herrmann 2003-10-18 14:49:55 +00:00
parent d6754c2398
commit 216286857b
4 changed files with 116 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test-suite/ChangeLog
View file

@ -1,3 +1,14 @@
2003-10-18 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/syntax.test (exception:missing/extra-expr,
exception:missing/extra-expr-misc): Renamed
exception:missing/extra-expr to exception:missing/extra-expr-misc.
(exception:missing/extra-expr-syntax,
exception:missing/extra-expr): Renamed
exception:missing/extra-expr-syntax to
exception:missing/extra-expr.
2003-10-18 Dirk Herrmann <D.Herrmann@tu-bs.de>
* lib.scm (exception:bad-variable): New.

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

@ -24,9 +24,9 @@
(define exception:bad-expression
(cons 'syntax-error "Bad expression"))
(define exception:missing/extra-expr
(define exception:missing/extra-expr-misc
(cons 'misc-error "^missing or extra expression"))
(define exception:missing/extra-expr-syntax
(define exception:missing/extra-expr
(cons 'syntax-error "missing or extra expression"))
(define exception:missing-expr
(cons 'syntax-error "Missing expression"))
@ -89,7 +89,7 @@
;; Fixed on 2001-3-3
(pass-if-exception "empty parentheses \"()\""
exception:missing/extra-expr
exception:missing/extra-expr-misc
(eval '()
(interaction-environment)))))
@ -433,12 +433,12 @@
(with-test-prefix "missing or extra expressions"
(pass-if-exception "(if)"
exception:missing/extra-expr-syntax
exception:missing/extra-expr
(eval '(if)
(interaction-environment)))
(pass-if-exception "(if 1 2 3 4)"
exception:missing/extra-expr-syntax
exception:missing/extra-expr
(eval '(if 1 2 3 4)
(interaction-environment)))))
@ -611,17 +611,17 @@
(with-test-prefix "missing or extra expressions"
(pass-if-exception "(set!)"
exception:missing/extra-expr
exception:missing/extra-expr-misc
(eval '(set!)
(interaction-environment)))
(pass-if-exception "(set! 1)"
exception:missing/extra-expr
exception:missing/extra-expr-misc
(eval '(set! 1)
(interaction-environment)))
(pass-if-exception "(set! 1 2 3)"
exception:missing/extra-expr
exception:missing/extra-expr-misc
(eval '(set! 1 2 3)
(interaction-environment))))