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

Fix `(ice-9 match)' for lists of lists.

Browse source
This commit is contained in:
Ludovic Courtès 2008-02-22 16:05:30 +00:00
parent 4fcb27c471
commit e27d249537
3 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
NEWS
View file

@ -40,7 +40,12 @@ Changes in 1.8.5 (since 1.8.4)
* Bugs fixed * Bugs fixed
** `scm add_slot ()' no longer segfaults (fixes bug #22369) ** `scm_add_slot ()' no longer segfaults (fixes bug #22369)
** Fixed `(ice-9 match)' for patterns like `((_ ...) ...)'
Previously, expressions like `(match '((foo) (bar)) (((_ ...) ...) #t))'
would trigger an unbound variable error for `match:andmap'.
** Fixed build issue for GNU/Linux on IA64 ** Fixed build issue for GNU/Linux on IA64
** Fixed build issue on NetBSD 1.6 ** Fixed build issue on NetBSD 1.6

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
2008-02-22 Ludovic Courtès <ludo@gnu.org>
* match.scm: Export `match:andmap'. This fixes evaluation of
expressions like `(match expr (((_ ...) ...) #t))' where a list
of lists is to be matched.
2008-01-22 Neil Jerram <neil@ossau.uklinux.net> 2008-01-22 Neil Jerram <neil@ossau.uklinux.net>
* COPYING: Removed. * COPYING: Removed.

3
ice-9/match.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2006, 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
@ -22,6 +22,7 @@
:export (match match-lambda match-lambda* match-define :export (match match-lambda match-lambda* match-define
match-let match-let* match-letrec match-let match-let* match-letrec
define-structure define-const-structure define-structure define-const-structure
match:andmap
match:error match:set-error match:error match:set-error
match:error-control match:set-error-control match:error-control match:set-error-control
match:structure-control match:set-structure-control match:structure-control match:set-structure-control