From 710a97992705d67c3ded0d4b270c5978ce29b11f Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:37 -0800
Subject: Import Upstream version 5e4

---
 dynl.c | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'dynl.c')

diff --git a/dynl.c b/dynl.c
index d8eeae4..736ce11 100644
--- a/dynl.c
+++ b/dynl.c
@@ -60,7 +60,7 @@ void listundefs()
   int i;
   char **undefs = dld_list_undefined_sym();
   puts("   undefs:");
-  for(i = dld_undefined_sym_count;i--;) {
+  for (i = dld_undefined_sym_count;i--;) {
     putc('"', stdout);
     fputs(undefs[i], stdout);
     puts("\"");
@@ -181,7 +181,7 @@ int prinshl(exp, port, writing)
      SCM exp; SCM port; int writing;
 {
   lputs("#<shl ", port);
-  intprint(CDR(exp), -16, port);
+  scm_intprint(CDR(exp), -16, port);
   lputc('>', port);
   return 1;
 }
@@ -379,7 +379,7 @@ int prinshl(exp, port, writing)
 	SCM exp; SCM port; int writing;
 {
   lputs("#<shl ", port);
-  intprint(CDR(exp), -16, port);
+  scm_intprint(CDR(exp), -16, port);
   lputc('>', port);
   return 1;
 }
@@ -405,7 +405,7 @@ SCM l_dyn_link(fname)
 	lputs(s_link, cur_errp);
 	lputs(": ", cur_errp);
 	lputs(dlr, cur_errp);
-	newline(cur_errp);
+	scm_newline(cur_errp);
       }}
     return BOOL_F;
   }
@@ -432,7 +432,7 @@ SCM l_dyn_call(symb, shl)
       lputs(s_call, cur_errp);
       lputs(": ", cur_errp);
       lputs(dlr, cur_errp);
-      newline(cur_errp);
+      scm_newline(cur_errp);
     }
     return BOOL_F;
   }
@@ -448,7 +448,7 @@ SCM l_dyn_main_call(symb, shl, args)
 {
   int i;
   int (*func)P((int argc, const char **argv)) = 0;
-  const char **argv;
+  char **argv;
 /*  SCM oloadpath = *loc_loadpath; */
   ASRTER(NIMP(symb) && STRINGP(symb), symb, ARG1, s_main_call);
   ASRTER(NIMP(shl) && CAR(shl)==tc16_shl, shl, ARG2, s_main_call);
@@ -461,7 +461,7 @@ SCM l_dyn_main_call(symb, shl, args)
       lputs(s_main_call, cur_errp);
       lputs(": ", cur_errp);
       lputs(dlr, cur_errp);
-      newline(cur_errp);
+      scm_newline(cur_errp);
     }
     return BOOL_F;
   }
@@ -529,7 +529,7 @@ int prinshl(exp, port, writing)
 	SCM exp; SCM port; int writing;
 {
   lputs("#<shl ", port);
-  intprint(CDR(exp), 16, port);
+  scm_intprint(CDR(exp), 16, port);
   lputc('>', port);
   return 1;
 }
@@ -673,7 +673,7 @@ int prinshl(exp, port, writing)
 	SCM exp; SCM port; int writing;
 {
   lputs("#<shl ", port);
-  intprint(CDR(exp), 16, port);
+  scm_intprint(CDR(exp), 16, port);
   lputc('>', port);
   return 1;
 }
-- 
cgit v1.2.3