[Guile-commits] GNU Guile branch, master, updated. release_1-9-15-5-g6debc49

[Ludovic Courtès]

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=6debc49e2c493674f2f35e6661c8035bf429b449

The branch, master has been updated
       via  6debc49e2c493674f2f35e6661c8035bf429b449 (commit)
      from  a75ea6589642270adf933b85a15d96a74ff59225 (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 6debc49e2c493674f2f35e6661c8035bf429b449
Author: Ludovic Courtès <address@hidden>
Date:   Mon Feb 7 22:12:10 2011 +0100

    Add tests for `memq' and `memv'.
    
    This is a follow-up to a75ea6589642270adf933b85a15d96a74ff59225 ("fix
    memq/memv inlining").
    
    * test-suite/tests/list.test ("memq", "memv"): New test prefixes.

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

Summary of changes:
 test-suite/tests/list.test |   19 ++++++++++++++++++-
 1 files changed, 18 insertions(+), 1 deletions(-)

diff --git a/test-suite/tests/list.test b/test-suite/tests/list.test
index d7b7801..dc06f07 100644
--- a/test-suite/tests/list.test
+++ b/test-suite/tests/list.test
@@ -1,5 +1,5 @@
 ;;;; list.test --- tests guile's lists     -*- scheme -*-
-;;;; Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2006, 2011 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -658,9 +658,26 @@
 
 ;;; memq
 
+(with-test-prefix/c&e "memq"
+
+  (pass-if "inline"
+    ;; In this case `memq' is inlined and the loop is unrolled.
+    (equal? '(b c d) (memq 'b '(a b c d))))
+
+  (pass-if "non inline"
+    ;; In this case a real function call is generated.
+    (equal? '(b c d) (memq 'b (list 'a 'b 'c 'd)))))
 
 ;;; memv
 
+(with-test-prefix/c&e "memv"
+  (pass-if "inline"
+    ;; In this case `memv' is inlined and the loop is unrolled.
+    (equal? '(b c d) (memv 'b '(a b c d))))
+
+  (pass-if "non inline"
+    ;; In this case a real function call is generated.
+    (equal? '(b c d) (memv 'b (list 'a 'b 'c 'd)))))
 
 ;;; member
 


hooks/post-receive
-- 
GNU Guile