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

Fix DecodeError runner

This commit is contained in:
Tony Garnock-Jones 2019-08-22 15:31:58 +01:00
parent aac73efd3a
commit 4d73ab6d69
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1031,7 +1031,7 @@
[`#s(DecodeShort ,(strip-annotations bs)) [`#s(DecodeShort ,(strip-annotations bs))
(check-eq? (d bs) 'short loc)] (check-eq? (d bs) 'short loc)]
[`#s(DecodeError ,(strip-annotations bs)) [`#s(DecodeError ,(strip-annotations bs))
(check-eq? (d bs) (void) loc)] (check-true (void? (d bs)) loc)]
[_ [_
(write-preserve t* #:indent #f) (write-preserve t* #:indent #f)
(newline)]))) (newline)])))