#1845: srfi-69 .types errors

[Chicken Trac]

#1845: srfi-69 .types errors
-----------------------------------+------------------------
            Reporter:  Kon Lovett  |       Type:  defect
              Status:  new         |   Priority:  minor
           Milestone:  someday     |  Component:  extensions
             Version:  5.4.0       |   Keywords:
Estimated difficulty:              |
-----------------------------------+------------------------
 ===== hashes return fixes & are not pure

 ((srfi-69#number-hash (#(procedure clean: enforce:) srfi-69#number-hash
 (new: number old: fixnum #!optional fixnum fixnum) fixnum)))

 ((srfi-69#hash (new: #(procedure clean: enforce:) old: #(procedure pure:
 enforce:) srfi-69#hash (* #!optional fixnum fixnum) fixnum)))

 ((srfi-69#string-hash (#(procedure clean: enforce:) srfi-69#string-hash
 (string #!optional fixnum fixnum fixnum fixnum) new: fixnum old: number)))

 ((srfi-69#string-ci-hash (#(procedure clean: enforce:) srfi-69#string-ci-
 hash (string #!optional fixnum fixnum fixnum fixnum) new: fixnum old:
 number)))

 ((srfi-69#hash-by-identity (new: #(procedure clean: enforce:) old:
 #(procedure pure: enforce:) srfi-69#hash-by-identity (* #!optional fixnum
 fixnum) fixnum)))

 ((srfi-69#string-hash-ci (#(procedure clean: enforce:) srfi-69#string-
 hash-ci (string #!optional fixnum fixnum fixnum fixnum) new: fixnum old:
 number)))

 ===== min/max load is float & equiv-func is a slot

 ((srfi-69#hash-table-max-load (#(procedure clean: enforce:) srfi-69#hash-
 table-max-load ((struct hash-table)) new: float old: fixnum) (((struct
 hash-table)) (##sys#slot #(1) (quote 6)))))

 ((srfi-69#hash-table-min-load (#(procedure clean: enforce:) srfi-69#hash-
 table-min-load ((struct hash-table)) new: float old: fixnum) (((struct
 hash-table)) (##sys#slot #(1) (quote 5)))))

 ((srfi-69#hash-table-equivalence-function (#(procedure clean: enforce:)
 srfi-69#hash-table-equivalence-function ((struct hash-table)) (procedure
 (* *) *)) new: (((struct hash-table)) (##sys#slot #(1) (quote 3)))))

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/1845>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.