add syntax-source accessor

* 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
commit 750ae8b7b7
3 changed files with 1403 additions and 1396 deletions

View file

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