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