mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(scm_init_regex_posix): Use scm_from_int for

Browse source 
REG_BASIC, REG_EXTENDED, REG_ICASE, REG_NEWLINE, REG_NOTBOL,
REG_NOTEOL; they're all ints not longs (per args to regcomp and
regexec).
This commit is contained in:
Kevin Ryde 2007-01-15 21:45:32 +00:00
parent 3f6c07ff8b
commit 335e478e4b
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/regex-posix.c
View file

@ -296,14 +296,14 @@ scm_init_regex_posix ()
scm_set_smob_free (scm_tc16_regex, regex_free); scm_set_smob_free (scm_tc16_regex, regex_free);
/* Compilation flags. */ /* Compilation flags. */
scm_c_define ("regexp/basic", scm_from_long (REG_BASIC)); scm_c_define ("regexp/basic", scm_from_int (REG_BASIC));
scm_c_define ("regexp/extended", scm_from_long (REG_EXTENDED)); scm_c_define ("regexp/extended", scm_from_int (REG_EXTENDED));
scm_c_define ("regexp/icase", scm_from_long (REG_ICASE)); scm_c_define ("regexp/icase", scm_from_int (REG_ICASE));
scm_c_define ("regexp/newline", scm_from_long (REG_NEWLINE)); scm_c_define ("regexp/newline", scm_from_int (REG_NEWLINE));
/* Execution flags. */ /* Execution flags. */
scm_c_define ("regexp/notbol", scm_from_long (REG_NOTBOL)); scm_c_define ("regexp/notbol", scm_from_int (REG_NOTBOL));
scm_c_define ("regexp/noteol", scm_from_long (REG_NOTEOL)); scm_c_define ("regexp/noteol", scm_from_int (REG_NOTEOL));
#include "libguile/regex-posix.x" #include "libguile/regex-posix.x"