Opened 4 days ago
#1845 new defect
srfi-69 .types errors
| Reported by: | Kon Lovett | Owned by: | |
|---|---|---|---|
| Priority: | minor | Milestone: | someday |
| Component: | extensions | Version: | 5.4.0 |
| Keywords: | Cc: | ||
| Estimated difficulty: |
Description
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)))))
