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

add syntax-source accessor

Browse source 
* module/ice-9/psyntax.scm: Add syntax-source accessor.
* module/ice-9/psyntax-pp.scm: Regenerated.
* module/ice-9/boot-9.scm: Declare syntax-source.
This commit is contained in:
Andy Wingo 2010-06-06 22:51:03 +02:00
parent de976b75cd
commit 750ae8b7b7
3 changed files with 1403 additions and 1396 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/ice-9/boot-9.scm
View file

@ -346,6 +346,7 @@ If there is no handler at all, Guile prints an error and then exits."
(define syntax-violation #f) (define syntax-violation #f)
(define datum->syntax #f) (define datum->syntax #f)
(define syntax->datum #f) (define syntax->datum #f)
(define syntax-source #f)
(define identifier? #f) (define identifier? #f)
(define generate-temporaries #f) (define generate-temporaries #f)
(define bound-identifier=? #f) (define bound-identifier=? #f)

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

File diff suppressed because it is too large Load diff

3
module/ice-9/psyntax.scm
View file

@ -2411,6 +2411,9 @@
(lambda (x) (lambda (x)
(strip x empty-wrap))) (strip x empty-wrap)))
(set! syntax-source
(lambda (x) (source-annotation x)))
(set! generate-temporaries (set! generate-temporaries
(lambda (ls) (lambda (ls)
(arg-check list? ls 'generate-temporaries) (arg-check list? ls 'generate-temporaries)