~ chicken-core (chicken-5) d20c598010d13172363ee16db0c0dcda7ef685c3

commit d20c598010d13172363ee16db0c0dcda7ef685c3
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Thu Aug 1 22:11:05 2013 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Thu Aug 1 22:11:05 2013 +0200

    ##sys#syntax-error does not exist -> ##sys#syntax-error-hook

diff --git a/eval.scm b/eval.scm
index 8d65f2ba..4adc6964 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1285,7 +1285,7 @@
 	(if (fixnum? n)
 	    (##sys#intern-symbol
 	     (##sys#string-append "srfi-" (##sys#number->string n)))
-	    (##sys#syntax-error 'require-extension "invalid SRFI number" n)))
+	    (##sys#syntax-error-hook 'require-extension "invalid SRFI number" n)))
       (define (doit id impid)
 	(cond ((or (memq id builtin-features)
 		   (if comp?