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

Allow void to be `->preserve`able

This commit is contained in:
Tony Garnock-Jones 2021-06-17 15:26:43 +02:00
parent f808e37e89
commit da513a249e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
implementations/racket/preserves/preserves-schema/methods.rkt
View File

@ -12,7 +12,8 @@
(define-generics preservable
(->preserve preservable)
#:fast-defaults ([boolean? (define (->preserve preservable) preservable)]
#:fast-defaults ([void? (define (->preserve preservable) preservable)] ;; !
[boolean? (define (->preserve preservable) preservable)]
[number? (define (->preserve preservable) preservable)]
[string? (define (->preserve preservable) preservable)]
[bytes? (define (->preserve preservable) preservable)]