mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Add cond-expand-provide srfi-8, since this module provides that feature.

Browse source
This commit is contained in:
Kevin Ryde 2004-08-18 00:26:18 +00:00
parent 5a7a4c9c61
commit 44bdaf3963
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/receive.scm
View file

@ -1,6 +1,6 @@
;;;; SRFI-8 ;;;; SRFI-8
;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. ;;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc.
;;; ;;;
;;; This program is free software; you can redistribute it and/or ;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as ;;; modify it under the terms of the GNU General Public License as
@ -49,3 +49,5 @@
(define-macro (receive vars vals . body) (define-macro (receive vars vals . body)
`(call-with-values (lambda () ,vals) `(call-with-values (lambda () ,vals)
(lambda ,vars ,@body))) (lambda ,vars ,@body)))
(cond-expand-provide (current-module) '(srfi-8))