This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=c5f6c2e47fab220fd090d911efc2a71a563b7c1d The branch, stable-2.0 has been updated via c5f6c2e47fab220fd090d911efc2a71a563b7c1d (commit) from 39eb0b7297a0e5baad5d3dc34068c854fa4c0c8b (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit c5f6c2e47fab220fd090d911efc2a71a563b7c1d Author: Mark H Weaver <m...@netris.org> Date: Sat Jan 14 04:28:16 2012 -0500 Don't diverge when serializing cyclic lists during compilation * module/language/glil/compile-assembly.scm (scheme-list?): Don't diverge when serializing cyclic lists. ----------------------------------------------------------------------- Summary of changes: module/language/glil/compile-assembly.scm | 8 +++++--- 1 files changed, 5 insertions(+), 3 deletions(-) diff --git a/module/language/glil/compile-assembly.scm b/module/language/glil/compile-assembly.scm index 997f7c7..a51fd58 100644 --- a/module/language/glil/compile-assembly.scm +++ b/module/language/glil/compile-assembly.scm @@ -106,9 +106,11 @@ ;; This tests for a proper scheme list whose last cdr is '(), not #nil. ;; (define (scheme-list? x) - (or (eq? x '()) - (and (pair? x) - (scheme-list? (cdr x))))) + (and (list? x) + (or (eq? x '()) + (let ((p (last-pair x))) + (and (pair? p) + (eq? (cdr p) '())))))) ;; Note: in all of these procedures that build up constant tables, the ;; first (zeroth) index is reserved. At runtime it is replaced with the hooks/post-receive -- GNU Guile
