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

(Dynamic Wind): Untabify.

Browse source 
(Multiple Values): Use @result.
Reported by Stephen Compall <s11@member.fsf.org>.
This commit is contained in:
Kevin Ryde 2003-07-23 23:53:39 +00:00
parent 83dbedccdb
commit 54148bb85a
1 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

35
doc/ref/scheme-control.texi
View file

@ -345,11 +345,12 @@ of the call to @code{call-with-values}.
@example
(call-with-values (lambda () (values 4 5))
(lambda (a b) b))
==> 5
@result{} 5
@end example
@example
(call-with-values * -) ==> -1
(call-with-values * -)
@result{} -1
@end example
@end deffn
@ -791,23 +792,23 @@ times.
(define x 'normal-binding)
@result{} x
(define a-cont (call-with-current-continuation
(lambda (escape)
(let ((old-x x))
(dynamic-wind
;; in-guard:
;;
(lambda () (set! x 'special-binding))
(lambda (escape)
(let ((old-x x))
(dynamic-wind
;; in-guard:
;;
(lambda () (set! x 'special-binding))
;; thunk
;;
(lambda () (display x) (newline)
(call-with-current-continuation escape)
(display x) (newline)
x)
;; thunk
;;
(lambda () (display x) (newline)
(call-with-current-continuation escape)
(display x) (newline)
x)
;; out-guard:
;;
(lambda () (set! x old-x)))))))
;; out-guard:
;;
(lambda () (set! x old-x)))))))
;; Prints:
special-binding