mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +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}#))
#{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}#)))