mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

re-expand psyntax-pp

Browse source 
* module/ice-9/psyntax-pp.scm: Expand again so we actually use
  with-fluids.
This commit is contained in:
Andy Wingo 2010-02-19 12:07:40 +01:00
parent 67a78ddd83
commit bcbbba866b
1 changed files with 18 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

38
module/ice-9/psyntax-pp.scm
View file

@ -10243,15 +10243,15 @@
#{mod\ 3384}#)) #{mod\ 3384}#))
#{val\ 3399}#) #{val\ 3399}#)
(#{chi-body\ 333}# (#{chi-body\ 333}#
(cons #{b\ 3400}# #{b*\ 3401}#) (cons #{b\ 3400}# #{b*\ 3401}#)
(#{source-wrap\ 311}# (#{source-wrap\ 311}#
#{e\ 3380}# #{e\ 3380}#
#{w\ 3382}#
#{s\ 3383}#
#{mod\ 3384}#)
#{r\ 3381}#
#{w\ 3382}# #{w\ 3382}#
#{s\ 3383}# #{mod\ 3384}#)))
#{mod\ 3384}#)
#{r\ 3381}#
#{w\ 3382}#
#{mod\ 3384}#)))
#{tmp\ 3391}#) #{tmp\ 3391}#)
(syntax-violation (syntax-violation
#f #f
@ -11170,18 +11170,16 @@
(null? (cdr #{rest\ 3658}#)))) (null? (cdr #{rest\ 3658}#))))
'(eval) '(eval)
(cadr #{rest\ 3658}#)))) (cadr #{rest\ 3658}#))))
(with-fluid* (with-fluids
#{*mode*\ 139}# ((#{*mode*\ 139}# #{m\ 3665}#))
#{m\ 3665}# (#{chi-top\ 323}#
(lambda () #{x\ 3657}#
(#{chi-top\ 323}# '()
#{x\ 3657}# '((top))
'() #{m\ 3665}#
'((top)) #{esew\ 3666}#
#{m\ 3665}# (cons 'hygiene
#{esew\ 3666}# (module-name (current-module)))))))))
(cons 'hygiene
(module-name (current-module))))))))))
(set! identifier? (set! identifier?
(lambda (#{x\ 3673}#) (lambda (#{x\ 3673}#)
(#{nonsymbol-id?\ 238}# #{x\ 3673}#))) (#{nonsymbol-id?\ 238}# #{x\ 3673}#)))