Fix type of raise-range-error.
original commit: 5bc108c7b108d1a9856a193f11be259fb69ad035
This commit is contained in:
parent
a1e803ad7f
commit
83b5e50288
|
@ -340,7 +340,7 @@
|
|||
[raise-arguments-error
|
||||
(->* (list Sym -String) Univ (Un))]
|
||||
[raise-range-error
|
||||
(->opt Sym -String -String index-type Univ index-type index-type [index-type] (Un))]
|
||||
(-> Sym -String -String index-type Univ index-type index-type (Un index-type (-val #f)) (Un))]
|
||||
|
||||
))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user