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 (for-syntax racket/base))
|
||||||
(require "record.rkt")
|
(require "record.rkt")
|
||||||
(require "annotation.rkt")
|
(require "annotation.rkt")
|
||||||
|
(require "float.rkt")
|
||||||
(require racket/set)
|
(require racket/set)
|
||||||
(require racket/dict)
|
(require racket/dict)
|
||||||
(require data/order)
|
(require data/order)
|
||||||
|
@ -23,7 +24,7 @@
|
||||||
(define (typecode v)
|
(define (typecode v)
|
||||||
(match v
|
(match v
|
||||||
[(? boolean?) 0]
|
[(? boolean?) 0]
|
||||||
[(? single-flonum?) 1]
|
[(or (? float?) (? single-flonum?)) 1]
|
||||||
[(? double-flonum?) 2]
|
[(? double-flonum?) 2]
|
||||||
[(? integer? x) 3]
|
[(? integer? x) 3]
|
||||||
[(? string?) 4]
|
[(? string?) 4]
|
||||||
|
|
Loading…
Reference in New Issue