Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

preserving source info in quasiquote (restores line number reporting for (chibi test))

Browse source
This commit is contained in:
Alex Shinn 2017-05-07 14:26:49 +09:00
parent 37178eacd5
commit 1e25dda078
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/init-7.scm
View file

@ -8,11 +8,12 @@
(define (cddr x) (cdr (cdr x)))
(define (cons-source kar kdr source)
((lambda (pair)
((lambda (pair source)
(if (pair? source)
(pair-source-set! pair (pair-source source)))
pair)
(cons kar kdr)))
(cons kar kdr)
(strip-syntactic-closures source)))
;; basic utils
@ -194,7 +195,8 @@
(cadr (car x))
(list (rename 'append) (cadr (car x)) (qq (cdr x) d))))
(else
(list (rename 'cons) (qq (car x) d) (qq (cdr x) d)))))
(list (rename 'cons-source) (qq (car x) d) (qq (cdr x) d)
(list (rename 'quote) x)))))
((vector? x) (list (rename 'list->vector) (qq (vector->list x) d)))
((if (identifier? x) #t (null? x)) (list (rename 'quote) x))
(else x)))