Skip to content

Instantly share code, notes, and snippets.

@takikawa
Created July 25, 2013 18:16
Show Gist options
  • Save takikawa/6082325 to your computer and use it in GitHub Desktop.
Save takikawa/6082325 to your computer and use it in GitHub Desktop.
-> (set-member? s 3)
; s: contract violation
; expected a procedure that accepts 1 mandatory argument without any keywords
; given: 3
; in: the 2nd argument of
; method set-member? with contract (-> set? (-> number? number?)
; boolean?)
; (set/c (-> number? number?))
; contract from: (definition s)
; blaming: top-level
; at: readline-input:2.17
; [,bt for context]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment