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

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

@ -11170,10 +11170,8 @@
(null? (cdr #{rest\ 3658}#))))
'(eval)
(cadr #{rest\ 3658}#))))
(with-fluid*
#{*mode*\ 139}#
#{m\ 3665}#
(lambda ()
(with-fluids
((#{*mode*\ 139}# #{m\ 3665}#))
(#{chi-top\ 323}#
#{x\ 3657}#
'()
@ -11181,7 +11179,7 @@
#{m\ 3665}#
#{esew\ 3666}#
(cons 'hygiene
(module-name (current-module))))))))))
(module-name (current-module)))))))))
(set! identifier?
(lambda (#{x\ 3673}#)
(#{nonsymbol-id?\ 238}# #{x\ 3673}#)))