conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

enhanced printing of annotated syntax objects.

This commit is contained in:
Abdulaziz Ghuloum 2007-12-20 00:31:49 -05:00
parent 2c31b5bf51
commit b915854677
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1272
1273

12
scheme/psyntax.expander.ss
View File

@ -200,17 +200,17 @@
;;; Now to syntax objects which are records defined like:
(define-record stx (expr mark* subst*)
(lambda (x p)
(display "#<syntax" p)
(display "#<syntax " p)
(write (stx->datum x) p)
(let ([expr (stx-expr x)])
(when (annotation? expr)
(let ([src (annotation-source expr)])
(when (pair? src)
(display "@char " p)
(display " [byte " p)
(display (cdr src) p)
(display " of file " p)
(display (car src) p)))))
(display " " p)
(write (stx->datum x) p)
(display " of " p)
(display (car src) p)
(display "]" p)))))
(display ">" p)))
;;; First, let's look at identifiers, since they're the real