ntoronto / pict3d

3-dimensional picts
GNU Lesser General Public License v3.0
113 stars 23 forks source link

(dir-dx (dir 1 0 0)) #18

Closed AlexKnauth closed 9 years ago

AlexKnauth commented 9 years ago

. . dir-dx: contract violation expected: Pos? given: (dir 1.0 0.0 0.0) in: the 1st argument of (-> Pos? any) contract from:

/pict3d/pict3d/private/gui/user-types.rkt blaming: anonymous-module (assuming the contract is correct) at: /pict3d/pict3d/private/gui/user-types.rkt:58.1
ntoronto commented 9 years ago

Thanks! A fix is on its way. In the meantime, (match-define (dir dx dy dz) ...) works.

ntoronto commented 9 years ago

Fixed in 790761522bf1711b40957697fdf86d6e53868d26.