mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

Make (srfi srfi-35)' visible through cond-expand'.

Browse source
This commit is contained in:
Ludovic Courtès 2008-04-26 21:09:40 +02:00
parent efbc70de56
commit 23978ff30a
5 changed files with 23 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
NEWS
View file

@ -38,6 +38,7 @@ would trigger an unbound variable error for `match:andmap'.
Previously, parsing short option names of argument-less options would Previously, parsing short option names of argument-less options would
lead to a stack overflow. lead to a stack overflow.
** `(srfi srfi-35)' is now visible through `cond-expand'
** Fixed type-checking for the second argument of `eval' ** Fixed type-checking for the second argument of `eval'
** Fixed `struct-ref' and `struct-set!' on "light structs" ** Fixed `struct-ref' and `struct-set!' on "light structs"
** Honor struct field access rights in GOOPS ** Honor struct field access rights in GOOPS

4
srfi/ChangeLog
View file

@ -1,3 +1,7 @@
2008-04-26 Ludovic Courtès <ludo@gnu.org>
* srfi-35.scm: Provide `srfi-35' through `cond-expand-provide'.
2008-04-26 Ludovic Courtès <ludo@gnu.org> 2008-04-26 Ludovic Courtès <ludo@gnu.org>
* Makefile.am (srfi_DATA): Add `srfi-88.scm'. * Makefile.am (srfi_DATA): Add `srfi-88.scm'.

4
srfi/srfi-35.scm
View file

@ -1,6 +1,6 @@
;;; srfi-35.scm --- Conditions ;;; srfi-35.scm --- Conditions
;; Copyright (C) 2007 Free Software Foundation, Inc. ;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
;; ;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -37,6 +37,8 @@
&serious serious-condition? &serious serious-condition?
&error error?)) &error error?))
(cond-expand-provide (current-module) '(srfi-35))
;;; ;;;
;;; Condition types. ;;; Condition types.

4
test-suite/ChangeLog
View file

@ -1,3 +1,7 @@
2008-04-26 Ludovic Courtès <ludo@gnu.org>
* tests/srfi-35.test (cond-expand): New test.
2008-04-26 Ludovic Courtès <ludo@gnu.org> 2008-04-26 Ludovic Courtès <ludo@gnu.org>
* Makefile.am (SCM_TESTS): Add `tests/srfi-88.test'. * Makefile.am (SCM_TESTS): Add `tests/srfi-88.test'.

12
test-suite/tests/srfi-35.test
View file

@ -1,7 +1,7 @@
;;;; srfi-35.test --- Test suite for SRFI-35 -*- Scheme -*- ;;;; srfi-35.test --- Test suite for SRFI-35 -*- Scheme -*-
;;;; Ludovic Courtès <ludo@gnu.org> ;;;; Ludovic Courtès <ludo@gnu.org>
;;;; ;;;;
;;;; Copyright (C) 2007 Free Software Foundation, Inc. ;;;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -22,6 +22,12 @@
:use-module (test-suite lib) :use-module (test-suite lib)
:use-module (srfi srfi-35)) :use-module (srfi srfi-35))
(with-test-prefix "cond-expand"
(pass-if "srfi-35"
(cond-expand (srfi-35 #t)
(else #f))))
(with-test-prefix "condition types" (with-test-prefix "condition types"
(pass-if "&condition" (pass-if "&condition"
@ -308,3 +314,7 @@
(pass-if "(c2-b v5)" (pass-if "(c2-b v5)"
(equal? (c2-b v5) "b2"))) (equal? (c2-b v5) "b2")))
;;; Local Variables:
;;; coding: latin-1
;;; End: