syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

peel-annotations

This commit is contained in:
Tony Garnock-Jones 2019-08-20 22:30:30 +01:00
parent fa5eaa6e39
commit e57fe62a48
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
implementations/racket/preserves/main.rkt
View File

@ -5,6 +5,7 @@
(struct-out record)
(struct-out annotated)
strip-annotations
peel-annotations
read-preserve
read-preserve-syntax
string->preserve
@ -71,6 +72,9 @@
[_ item])]
[_ v]))))
(define (peel-annotations v)
(strip-annotations v #:depth 1))
(define current-value->placeholder (make-parameter (lambda (v) #f)))
(define current-placeholder->value (make-parameter (lambda (v) (void))))
@ -948,6 +952,6 @@
(write-preserve t #:indent #f)
(newline)
(newline)
(pretty-print (list (strip-annotations t-name)
(strip-annotations t #:depth 1)))))
(pretty-print (list (peel-annotations t-name)
(peel-annotations t)))))
)