suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make sql-null? a struct predicate. (#1450)

Browse Source 
This allows Typed Racket to know that it's pure and safe to use
as an opaque value.
This commit is contained in:
Sam Tobin-Hochstadt 2016-09-07 10:57:10 -04:00 committed by Ryan Culpepper
parent 42f4784735
commit 94dbcb12dc
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/collects/db/private/generic/sql-data.rkt
View File

@ -10,7 +10,7 @@
;; NULL ;; NULL
(define sql-null (define-values (sql-null sql-null?)
(let () (let ()
(struct sql-null () (struct sql-null ()
;; must deserialize to singleton, so can't just use serializable-struct ;; must deserialize to singleton, so can't just use serializable-struct
@ -20,10 +20,7 @@
#f #f
(or (current-load-relative-directory) (or (current-load-relative-directory)
(current-directory)))) (current-directory))))
(sql-null))) (values (sql-null) sql-null?)))
(define (sql-null? x)
(eq? x sql-null))
(define (sql-null->false x) (define (sql-null->false x)
(if (eq? x sql-null) (if (eq? x sql-null)