* deprecated.h, boolean.h (SCM_FALSEP, SCM_NFALSEP, SCM_BOOL,

[bpt/guile.git] / libguile / error.c

diff --git a/libguile/error.c b/libguile/error.c
index fd6d707..76023a2 100644 (file)
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -102,7 +102,7 @@ SCM_DEFINE (scm_error_scm, "scm-error", 5, 0, 0,
 
   SCM_VALIDATE_SYMBOL (1, key);
 
-  if (SCM_FALSEP (subr))
+  if (scm_is_false (subr))
     {
       szSubr = NULL;
     }
@@ -116,7 +116,7 @@ SCM_DEFINE (scm_error_scm, "scm-error", 5, 0, 0,
       szSubr = SCM_STRING_CHARS (subr);
     }
 
-  if (SCM_FALSEP (message))
+  if (scm_is_false (message))
     {
       szMessage = NULL;
     }
@@ -163,7 +163,7 @@ scm_syserror (const char *subr)
             subr,
             "~A",
             scm_cons (scm_makfrom0str (SCM_I_STRERROR (save_errno)), SCM_EOL),
-            scm_cons (SCM_MAKINUM (save_errno), SCM_EOL));
+            scm_cons (scm_from_int (save_errno), SCM_EOL));
 }
 
 void
@@ -173,7 +173,7 @@ scm_syserror_msg (const char *subr, const char *message, SCM args, int eno)
             subr,
             message,
             args,
-            scm_cons (SCM_MAKINUM (eno), SCM_EOL));
+            scm_cons (scm_from_int (eno), SCM_EOL));
 }
 
 SCM_GLOBAL_SYMBOL (scm_num_overflow_key, "numerical-overflow");