[r6rs-discuss] [Formal] SRFI-39 should be made an R6RS library

From: Abdulaziz Ghuloum <aghuloum>
Date: Wed Feb 21 05:15:46 2007

Here's just another simple interactive session in which three nested
REPLs
can each modify its own prompt-string, and how one can switch from
any one
to of them to the other without any interference.

Aziz,,,


Petite Chez Scheme Version 7.2
Copyright (c) 1985-2006 Cadence Research Systems

> (begin (call/cc (lambda (k) (set! main-k k))) (printf "Welcome to
main-k\n"))
Welcome to main-k
> (parameterize ([waiter-prompt-string "#"]) (new-cafe))
## (begin (call/cc (lambda (k) (set! hash-k k))) (printf "Welcome to
hash-k\n"))
Welcome to hash-k
## (parameterize ([waiter-prompt-string "$"]) (new-cafe))
$$$ (begin (call/cc (lambda (k) (set! dollar-k k))) (printf "Welcome
to dollar-k\n"))
Welcome to dollar-k
$$$ 12
12
$$$ (main-k)
Welcome to main-k
> 17
17
> (hash-k)
Welcome to hash-k
## (dollar-k)
Welcome to dollar-k
$$$ (waiter-prompt-string "!")
!!! #t
#t
!!! ^D
## (dollar-k)
Welcome to dollar-k
!!! (hash-k)
Welcome to hash-k
## (waiter-prompt-string "%")
%% 'here?
here?
%% ^D
> (hash-k)
Welcome to hash-k
%% (dollar-k)
Welcome to dollar-k
!!! ^D
%% ^D
> ^D
Received on Wed Feb 21 2007 - 05:15:10 UTC