Add `%null-pointer' to `(system foreign)'.
authorLudovic Courtès <ludo@gnu.org>
Wed, 17 Mar 2010 23:27:38 +0000 (00:27 +0100)
committerLudovic Courtès <ludo@gnu.org>
Wed, 17 Mar 2010 23:28:14 +0000 (00:28 +0100)
commit54eb59cf4948482461e41f73c0a5b1f9c7081326
tree871156063a855858497aeb91609565e3c3cc744d
parent5595bd76414e50834b293ead7fd67a54fe56c563
Add `%null-pointer' to `(system foreign)'.

* libguile/foreign.c (sym_null, null_pointer): New variables.
  (scm_foreign_to_bytevector): Raise an error when PTR is NULL.
  (scm_init_foreign): Define SYM_NULL.

* module/system/foreign.scm (%null-pointer): New exported binding.
libguile/foreign.c
module/system/foreign.scm