diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
| commit | 710a97992705d67c3ded0d4b270c5978ce29b11f (patch) | |
| tree | ddcb2f7a91cbb86ce582e74227768b7b898c29e1 /dynl.c | |
| parent | 50eb784bfcf15ee3c6b0b53d747db92673395040 (diff) | |
| download | scm-710a97992705d67c3ded0d4b270c5978ce29b11f.tar.gz scm-710a97992705d67c3ded0d4b270c5978ce29b11f.zip | |
Import Upstream version 5e4upstream/5e4
Diffstat (limited to 'dynl.c')
| -rw-r--r-- | dynl.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -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; } |