[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. v2.1.0-380-ge088b09
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. v2.1.0-380-ge088b09 |
Date: |
Sat, 28 Jul 2012 11:23:04 +0000 |
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=e088b09d7dce5d78c96288778969876b6d25d726
The branch, master has been updated
via e088b09d7dce5d78c96288778969876b6d25d726 (commit)
via 880e114b9d06bb488b27a3af1d1fdefcc1f464bd (commit)
via 07e6d2d4511ed2fe812f0ed4c31f104c85bf8e05 (commit)
via 6d46f1e48a76e3e5c9066a6e9ed417ac253d9d87 (commit)
via 41a9e8829c1720da01f3bd471552688806478a51 (commit)
via febc7d2f071fcbfafdc976170bd223dd6f2ead38 (commit)
from e0f68f785d3899c6b565c12d6540f20730fcd9cc (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 e088b09d7dce5d78c96288778969876b6d25d726
Merge: e0f68f7 880e114
Author: Andy Wingo <address@hidden>
Date: Sat Jul 28 13:22:57 2012 +0200
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts:
libguile/struct.c
libguile/struct.h
-----------------------------------------------------------------------
Summary of changes:
test-suite/tests/goops.test | 6 ++++--
test-suite/tests/structs.test | 12 +++++++-----
2 files changed, 11 insertions(+), 7 deletions(-)
diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test
index b864b24..1705ee8 100644
--- a/test-suite/tests/goops.test
+++ b/test-suite/tests/goops.test
@@ -1,6 +1,6 @@
;;;; goops.test --- test suite for GOOPS -*- scheme -*-
;;;;
-;;;; Copyright (C) 2001,2003,2004, 2006, 2008, 2009, 2011 Free Software
Foundation, Inc.
+;;;; Copyright (C) 2001,2003,2004, 2006, 2008, 2009, 2011, 2012 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
@@ -147,7 +147,9 @@
(pass-if "struct vtable"
;; Previously, `class-of' would fail for nameless structs, i.e., structs
;; for which `struct-vtable-name' is #f.
- (is-a? (class-of (make-vtable-vtable "prprpr" 0)) <class>)))
+ (is-a? (class-of (make-vtable
+ (string-append standard-vtable-fields "prprpr")))
+ <class>)))
(with-test-prefix "defining classes"
diff --git a/test-suite/tests/structs.test b/test-suite/tests/structs.test
index 55e0807..431a014 100644
--- a/test-suite/tests/structs.test
+++ b/test-suite/tests/structs.test
@@ -1,7 +1,7 @@
;;;; structs.test --- Structures. -*- mode: scheme; coding: utf-8; -*-
;;;; Ludovic Courtès <address@hidden>, 2006-06-12.
;;;;
-;;;; Copyright (C) 2006, 2007, 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2006, 2007, 2009, 2010, 2012 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
@@ -26,7 +26,8 @@
;;; Struct example taken from the reference manual (by Tom Lord).
;;;
-(define ball-root (make-vtable-vtable "pr" 0))
+(define ball-root
+ (make-vtable (string-append standard-vtable-fields "pr") 0))
(define (make-ball-type ball-color)
(make-struct ball-root 0
@@ -63,9 +64,10 @@
(and (eq? (struct-vtable red) ball-root)
(eq? (struct-vtable green) ball-root)
(eq? (struct-vtable (make-ball red "Bob")) red)
+ (eq? (struct-vtable ball-root) <standard-vtable>)
;; end of the vtable tower
- (eq? (struct-vtable ball-root) ball-root)))
+ (eq? (struct-vtable <standard-vtable>) <standard-vtable>)))
(pass-if-exception "write-access denied"
exception:struct-set!-denied
@@ -139,7 +141,7 @@
;; the program
;;
(pass-if-exception "wrong type for `u' field" exception:wrong-type-arg
- (let* ((vv (make-vtable-vtable "" 0))
+ (let* ((vv (make-vtable standard-vtable-fields))
(v (make-struct vv 0 (make-struct-layout "uw"))))
(make-struct v 0 'x)))
@@ -150,7 +152,7 @@
;; SCM can cause a segv).
;;
(pass-if-exception "no R/W/O for tail array" exception:bad-tail
- (let* ((vv (make-vtable-vtable "" 0))
+ (let* ((vv (make-vtable standard-vtable-fields))
(v (make-struct vv 0 (make-struct-layout "pw"))))
(make-struct v 123 'x))))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. v2.1.0-380-ge088b09,
Andy Wingo <=