Summary

srfi-69 .types errors

Metadata

• Id: 9dacd3e10d0671c295b9a448565582ce0f4e6446
• Trac id: 1845
• Type: defect
• Reporter: kon
• Owner:
• Cc:
• Status: new
• Component: extensions
• Estimated difficulty:
• Resolution:
• Priority: minor
• Milestone: someday
• Version: 5.4.0
• Changetime: 2024-12-14 01:47:23 UTC
• Created: 2024-12-14 01:47:23 UTC
• Keywords:

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)))))