Browse files

When the value is NULL, c-pointer types return #f, not null-pointer o…

  • Loading branch information...
Peter Bex
Peter Bex committed May 10, 2011
1 parent d8fec3d commit b51f76dde485c3778d6cbc0122adfaac489cddf9
Showing with 1 addition and 1 deletion.
  1. +1 −1 freetds.scm
@@ -355,7 +355,7 @@ with the FreeTDS egg. If not, see <>.
(let ((type* ((foreign-lambda* (c-pointer type) ((int l))
"C_return(malloc(l*(sizeof(" type "))));")
- (when (null-pointer? type*)
+ (unless type*
(error 'constructor
(format "could not allocate ~a ~a(s)" length type)))
(set-finalizer! type* (foreign-lambda* void (((c-pointer type) t))

0 comments on commit b51f76d

Please sign in to comment.