diff options
author | Olly Betts <olly@survex.com> | 2022-03-16 18:04:44 +1300 |
---|---|---|
committer | Olly Betts <olly@survex.com> | 2022-03-16 18:04:44 +1300 |
commit | a3540491958959622e4b8c2ed13d0ec088eaa9a5 (patch) | |
tree | 1529a4f8a625934a880ce40382ccd321eb288970 /Lib/guile/guile_scm_run.swg | |
parent | c546acf2e4f47bc9cf010b62fdbde2b169e36583 (diff) | |
download | swig-guile-changes.tar.gz |
[guile] Stop using deprecated aliasesguile-changes
The replacements should all work with Guile 1.8.0, which is the
oldest version we still aim to support.
Fixes #1624
Diffstat (limited to 'Lib/guile/guile_scm_run.swg')
-rw-r--r-- | Lib/guile/guile_scm_run.swg | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Lib/guile/guile_scm_run.swg b/Lib/guile/guile_scm_run.swg index 2e96184b1..d1dc0d61f 100644 --- a/Lib/guile/guile_scm_run.swg +++ b/Lib/guile/guile_scm_run.swg @@ -125,7 +125,7 @@ SWIG_Guile_NewPointerObj(void *ptr, swig_type_info *type, int owner) else SCM_NEWSMOB2(smob, swig_tag, ptr, (void *) type); - if (!cdata || SCM_NULLP(cdata->goops_class) || swig_make_func == SCM_EOL ) { + if (!cdata || scm_is_null(cdata->goops_class) || swig_make_func == SCM_EOL ) { return smob; } else { /* the scm_make() C function only handles the creation of gf, @@ -145,7 +145,7 @@ SWIGINTERN unsigned long SWIG_Guile_PointerAddress(SCM object) { SCM smob = SWIG_Guile_GetSmob(object); - if (SCM_NULLP(smob)) return 0; + if (scm_is_null(smob)) return 0; else if (SCM_SMOB_PREDICATE(swig_tag, smob) || SCM_SMOB_PREDICATE(swig_collectable_tag, smob) || SCM_SMOB_PREDICATE(swig_destroyed_tag, smob)) { @@ -158,7 +158,7 @@ SWIGINTERN swig_type_info * SWIG_Guile_PointerType(SCM object) { SCM smob = SWIG_Guile_GetSmob(object); - if (SCM_NULLP(smob)) return NULL; + if (scm_is_null(smob)) return NULL; else if (SCM_SMOB_PREDICATE(swig_tag, smob) || SCM_SMOB_PREDICATE(swig_collectable_tag, smob) || SCM_SMOB_PREDICATE(swig_destroyed_tag, smob)) { @@ -186,7 +186,7 @@ SWIG_Guile_ConvertPtr(SCM s, void **result, swig_type_info *type, int flags) swig_type_info *from; SCM smob = SWIG_Guile_GetSmob(s); - if (SCM_NULLP(smob)) { + if (scm_is_null(smob)) { *result = NULL; return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK; #if SCM_MAJOR_VERSION >= 2 @@ -252,7 +252,7 @@ SWIGINTERN void SWIG_Guile_MarkPointerNoncollectable(SCM s) { SCM smob = SWIG_Guile_GetSmob(s); - if (!SCM_NULLP(smob)) { + if (!scm_is_null(smob)) { if (SWIG_Guile_IsValidSmob(smob)) { SCM_SET_CELL_TYPE(smob, swig_tag); } @@ -265,7 +265,7 @@ SWIGINTERN void SWIG_Guile_MarkPointerDestroyed(SCM s) { SCM smob = SWIG_Guile_GetSmob(s); - if (!SCM_NULLP(smob)) { + if (!scm_is_null(smob)) { if (SWIG_Guile_IsValidSmob(smob)) { SCM_SET_CELL_TYPE(smob, swig_destroyed_tag); } @@ -486,20 +486,20 @@ SWIG_Guile_GetArgs (SCM *dest, SCM rest, int i; int num_args_passed = 0; for (i = 0; i<reqargs; i++) { - if (!SCM_CONSP(rest)) + if (!scm_is_pair(rest)) scm_wrong_num_args(scm_from_utf8_string(procname ? (char *) procname : "unknown procedure")); *dest++ = SCM_CAR(rest); rest = SCM_CDR(rest); num_args_passed++; } - for (i = 0; i<optargs && SCM_CONSP(rest); i++) { + for (i = 0; i<optargs && scm_is_pair(rest); i++) { *dest++ = SCM_CAR(rest); rest = SCM_CDR(rest); num_args_passed++; } for (; i<optargs; i++) *dest++ = SCM_UNDEFINED; - if (!SCM_NULLP(rest)) + if (!scm_is_null(rest)) scm_wrong_num_args(scm_from_utf8_string(procname ? (char *) procname : "unknown procedure")); return num_args_passed; } |