diff options
-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}#))) |