(20 . 9)(20 . 6)
273 #ifdef WIN32
274 #define snprintf _snprintf
275 #endif
276 #if USE_DL
277 # include "dynload.h"
278 #endif
279 #if USE_MATH
280 # include <math.h>
281 #endif
(4982 . 9)(4979 . 6)
283 }
284 scheme_set_input_port_file(&sc, stdin);
285 scheme_set_output_port_file(&sc, stdout);
286 #if USE_DL
287 scheme_define(&sc,sc.global_env,mk_symbol(&sc,"load-extension"),mk_foreign_func(&sc, scm_load_ext));
288 #endif
289 argv++;
290 if(access(file_name,0)!=0) {
291 char *p=getenv("TINYSCHEMEINIT");