[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-118-g13f1461

[Andreas Rottmann]

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=13f1461c2417cc80f050beb4c11a94deb60defae

The branch, stable-2.0 has been updated
       via  13f1461c2417cc80f050beb4c11a94deb60defae (commit)
      from  75847d5767df6321adcd47e92d1a986333d4e9bd (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 13f1461c2417cc80f050beb4c11a94deb60defae
Author: Andreas Rottmann <address@hidden>
Date:   Sun Mar 20 01:00:09 2011 +0100

    Add VM test for call/cc in non-tail position
    
    * test-suite/vm/t-call-cc.scm: Add test case using call/cc in a non-tail
      position.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/vm/t-call-cc.scm |   14 ++++++++++++++
 1 files changed, 14 insertions(+), 0 deletions(-)

diff --git a/test-suite/vm/t-call-cc.scm b/test-suite/vm/t-call-cc.scm
index 05e4de9..097f276 100644
--- a/test-suite/vm/t-call-cc.scm
+++ b/test-suite/vm/t-call-cc.scm
@@ -14,3 +14,17 @@
             (else
              (set-counter2 (1+ counter2))))))
   (loop 0))
+
+(let* ((next #f)
+       (counter 0)
+       (result (call/cc
+                 (lambda (k)
+                   (set! next k)
+                   1))))
+  (set! counter (+ 1 counter))
+  (cond ((not (= counter result))
+         (error "bad call/cc behaviour" counter result))
+        ((> counter 10)
+         #t)
+        (else
+         (next (+ 1 counter)))))


hooks/post-receive
-- 
GNU Guile