diff options
author | Andy Wingo <wingo@pobox.com> | 2010-02-19 12:07:40 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-02-19 12:10:11 +0100 |
commit | bcbbba866b56460d097dba17e0dbb0c53d9f9211 (patch) | |
tree | e38c3bcb41dd27136b82831a6498c52c3227179b | |
parent | 67a78ddd8381ccf098b52659897a4d40806a0928 (diff) | |
download | guile-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.scm | 38 |
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}#))) |