[EMAIL PROTECTED] (Ludovic Courtès) writes:
>
> +scm_read_quote (int chr, SCM port)
I think you may have lost source properties from quote and quasi-quote
forms,
(read-enable 'positions)
(source-properties (read (open-input-string "'x")))
=> ()
There wasn't a case in reader.test for that:
--- reader.test 16 Aug 2007 07:43:43 +1000 1.7.6.1
+++ reader.test 21 Aug 2007 18:11:04 +1000
@@ -152,5 +152,12 @@
(lambda ()
(read-string "(+ 1 2 3)")))))
(and (equal? (source-property sexp 'line) 0)
+ (equal? (source-property sexp 'column) 0))))
+
+ (pass-if "positions on quote"
+ (let ((sexp (with-read-options '(positions)
+ (lambda ()
+ (read-string "'x")))))
+ (and (equal? (source-property sexp 'line) 0)
(equal? (source-property sexp 'column) 0)))))
_______________________________________________
Guile-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/guile-devel
