From 54148bb85a9eb63a1894bde53cdd67545e93e01c Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Wed, 23 Jul 2003 23:53:39 +0000 Subject: [PATCH] (Dynamic Wind): Untabify. (Multiple Values): Use @result. Reported by Stephen Compall . --- doc/ref/scheme-control.texi | 35 ++++++++++++++++++----------------- 1 file changed, 18 insertions(+), 17 deletions(-) diff --git a/doc/ref/scheme-control.texi b/doc/ref/scheme-control.texi index 1531df1b5..8c5782a4b 100644 --- a/doc/ref/scheme-control.texi +++ b/doc/ref/scheme-control.texi @@ -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