mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

* calling.scm (excursion-function-syntax): Use a sequence of

Browse source 
set!'s, not a single multi-variable set!; we removed support for
that syntax a long time ago.  (Thanks to Shuji Narazaki.)
This commit is contained in:
Jim Blandy 1998-10-14 08:39:51 +00:00
parent cd6c612a27
commit 63da7567af
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/calling.scm
View file

@ -135,7 +135,10 @@
`(lambda (,thunk-name) `(lambda (,thunk-name)
(letrec ((,tmp-var-name #f) (letrec ((,tmp-var-name #f)
(,swap-fn-name (,swap-fn-name
(lambda () ,@ (map (lambda (n sn) `(set! ,tmp-var-name ,n ,n ,sn ,sn ,tmp-var-name)) (lambda () ,@ (map (lambda (n sn)
`(begin (set! ,tmp-var-name ,n)
(set! ,n ,sn)
(set! ,sn ,tmp-var-name)))
vars saved-value-names))) vars saved-value-names)))
,@ (map (lambda (sn n) `(,sn ,n)) saved-value-names vars)) ,@ (map (lambda (sn n) `(,sn ,n)) saved-value-names vars))
(dynamic-wind (dynamic-wind