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

Document `and=>'.

Browse source 
* module/ice-9/boot-9.scm (and=>): Add docstring.
* doc/ref/api-procedures.texi (Higher-Order Functions): Add `and=>'.
This commit is contained in:
Ludovic Courtès 2013-03-27 16:45:54 +01:00
parent ffc8eca636
commit 8cd109bf0a
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/boot-9.scm
View file

@ -944,7 +944,10 @@ VALUE."
(lambda _
value))
(define (and=> value procedure) (and value (procedure value)))
(define (and=> value procedure)
"When VALUE is #f, return #f. Otherwise, return (PROC VALUE)."
(and value (procedure value)))
(define call/cc call-with-current-continuation)
(define-syntax false-if-exception