mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +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:25:39 +00:00
parent 00ed256c76
commit 6ee5281f4e
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 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
@ -24,3 +24,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))