mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 07:10:20 +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}#)))) (null? (cdr #{rest\ 3658}#))))
'(eval) '(eval)
(cadr #{rest\ 3658}#)))) (cadr #{rest\ 3658}#))))
(with-fluid* (with-fluids
#{*mode*\ 139}# ((#{*mode*\ 139}# #{m\ 3665}#))
#{m\ 3665}#
(lambda ()
(#{chi-top\ 323}# (#{chi-top\ 323}#
#{x\ 3657}# #{x\ 3657}#
'() '()
@ -11181,7 +11179,7 @@
#{m\ 3665}# #{m\ 3665}#
#{esew\ 3666}# #{esew\ 3666}#
(cons 'hygiene (cons 'hygiene
(module-name (current-module)))))))))) (module-name (current-module)))))))))
(set! identifier? (set! identifier?
(lambda (#{x\ 3673}#) (lambda (#{x\ 3673}#)
(#{nonsymbol-id?\ 238}# #{x\ 3673}#))) (#{nonsymbol-id?\ 238}# #{x\ 3673}#)))