forked from syndicate-lang/preserves
Repair error wrt `float` struct test
This commit is contained in:
parent
ade9b0a0f1
commit
a4d61017d8
|
@ -12,6 +12,7 @@
|
|||
(require (for-syntax racket/base))
|
||||
(require "record.rkt")
|
||||
(require "annotation.rkt")
|
||||
(require "float.rkt")
|
||||
(require racket/set)
|
||||
(require racket/dict)
|
||||
(require data/order)
|
||||
|
@ -23,7 +24,7 @@
|
|||
(define (typecode v)
|
||||
(match v
|
||||
[(? boolean?) 0]
|
||||
[(? single-flonum?) 1]
|
||||
[(or (? float?) (? single-flonum?)) 1]
|
||||
[(? double-flonum?) 2]
|
||||
[(? integer? x) 3]
|
||||
[(? string?) 4]
|
||||
|
|
Loading…
Reference in New Issue