1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- (define-module (system syntax)
- #:use-module (system syntax internal)
- #:re-export (syntax?
- syntax-local-binding
- (%syntax-module . syntax-module)
- syntax-locally-bound-identifiers
- syntax-session-id
- syntax-sourcev))
- (define (print-syntax obj port)
-
-
- (let ((src (syntax-sourcev obj)))
- (if src
- (format port "#<syntax:~a:~a:~a ~s>"
- (cond
- ((vector-ref src 0) => basename)
- (else "unknown file"))
- (1+ (vector-ref src 1))
- (vector-ref src 2)
- (syntax-expression obj))
- (format port "#<syntax ~s>" (syntax-expression obj)))))
|