summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-02-19 12:07:40 +0100
committerAndy Wingo <wingo@pobox.com>2010-02-19 12:10:11 +0100
commitbcbbba866b56460d097dba17e0dbb0c53d9f9211 (patch)
treee38c3bcb41dd27136b82831a6498c52c3227179b
parent67a78ddd8381ccf098b52659897a4d40806a0928 (diff)
downloadguile-bcbbba866b56460d097dba17e0dbb0c53d9f9211.tar.gz
re-expand psyntax-pp
* module/ice-9/psyntax-pp.scm: Expand again so we actually use with-fluids.
-rw-r--r--module/ice-9/psyntax-pp.scm38
1 files changed, 18 insertions, 20 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 948b1ccd5..af3446720 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -10243,15 +10243,15 @@
#{mod\ 3384}#))
#{val\ 3399}#)
(#{chi-body\ 333}#
- (cons #{b\ 3400}# #{b*\ 3401}#)
- (#{source-wrap\ 311}#
- #{e\ 3380}#
+ (cons #{b\ 3400}# #{b*\ 3401}#)
+ (#{source-wrap\ 311}#
+ #{e\ 3380}#
+ #{w\ 3382}#
+ #{s\ 3383}#
+ #{mod\ 3384}#)
+ #{r\ 3381}#
#{w\ 3382}#
- #{s\ 3383}#
- #{mod\ 3384}#)
- #{r\ 3381}#
- #{w\ 3382}#
- #{mod\ 3384}#)))
+ #{mod\ 3384}#)))
#{tmp\ 3391}#)
(syntax-violation
#f
@@ -11170,18 +11170,16 @@
(null? (cdr #{rest\ 3658}#))))
'(eval)
(cadr #{rest\ 3658}#))))
- (with-fluid*
- #{*mode*\ 139}#
- #{m\ 3665}#
- (lambda ()
- (#{chi-top\ 323}#
- #{x\ 3657}#
- '()
- '((top))
- #{m\ 3665}#
- #{esew\ 3666}#
- (cons 'hygiene
- (module-name (current-module))))))))))
+ (with-fluids
+ ((#{*mode*\ 139}# #{m\ 3665}#))
+ (#{chi-top\ 323}#
+ #{x\ 3657}#
+ '()
+ '((top))
+ #{m\ 3665}#
+ #{esew\ 3666}#
+ (cons 'hygiene
+ (module-name (current-module)))))))))
(set! identifier?
(lambda (#{x\ 3673}#)
(#{nonsymbol-id?\ 238}# #{x\ 3673}#)))