asciilifeform_tinyscheme_repl_fix

all signers:

antecedents: asciilifeform_tinyscheme_snip_crud_fixed tinyscheme_genesis_fixed

press order:

tinyscheme_genesis_fixed
asciilifeform_tinyscheme_snip_crud_fixed
asciilifeform_tinyscheme_repl_fix_fixed

patch:

- CFD3ED45F7A9FD06FC15908F04D951F3C5E6D4BDF67F0D34A05DBB62DD4948952F771071F0BAADB050C3094AD20BA58042C677585C5EE6988E6725E227934FE2
+ C74450E18AB91F7C226108E76075162D2DD9B111B10D42AF58FBFE5C2F18C71667E42CD865138DAA7339BACF158411642D62E742B208AA5133316B879081BB90
tinyscheme/scheme-private.h

(26 . 6)(26 . 7)
  5   union {
  6     struct {
  7       FILE *file;
  8       int interactive;
  9       int closeit;
 10 #if SHOW_ERROR_LINE
 11       int curr_line;

- EF5203068D238DBA559384ACCC5655416FC64845BA7960C1CF65965148EBEAD9064596006322DFFD0DB24FEFB7C0E9273D10AACFDC52FBA42156ECEBFAF85077
+ 6FD96891D2F0C28183F034B595636C7D53FA0867354702C6D9B72117C6203DDD205AC1B3A9572976F4E451345AD3EB2DF538BE8391280276879294C9E42145E1
tinyscheme/scheme.c

(13 . 13)(13 . 11)
 16  */
 17 
 18 #define _SCHEME_SOURCE
 19 
 20 #include "scheme-private.h"
 21 #ifndef WIN32
 22 # include <unistd.h>
 23 #endif
 24 #ifdef WIN32
 25 #define snprintf _snprintf
 26 #endif
 27 #include <unistd.h>
 28 #include <sys/types.h>
 29 
 30 #if USE_MATH
 31 # include <math.h>
 32 #endif
(35 . 6)(33 . 8)
 34 # endif
 35 #endif
 36 
 37 const char* tiny_scheme_version = PACKAGE_VERSION;
 38 
 39 /* Used for documentation purposes, to signal functions in 'interface' */
 40 #define INTERFACE
 41 
(1359 . 7)(1359 . 7)
 43 }
 44 
 45 static int file_interactive(scheme *sc) {
 46  return sc->file_i==0 && sc->load_stack[0].rep.stdio.file==stdin
 47  return sc->file_i==0 && sc->load_stack[0].rep.stdio.interactive /* sc->load_stack[0].rep.stdio.file==stdin */
 48      && sc->inport->_object._port->kind&port_file;
 49 }
 50 
(1380 . 6)(1380 . 7)
 52   }
 53   pt=port_rep_from_file(sc,f,prop);
 54   pt->rep.stdio.closeit=1;
 55   pt->rep.stdio.interactive=0;
 56 
 57 #if SHOW_ERROR_LINE
 58   if(fn)
(1410 . 6)(1411 . 7)
 60     pt->kind = port_file | prop;
 61     pt->rep.stdio.file = f;
 62     pt->rep.stdio.closeit = 0;
 63     pt->rep.stdio.interactive=sc->interactive_repl;
 64     return pt;
 65 }
 66 
(1565 . 6)(1567 . 8)
 68   port *pt=sc->outport->_object._port;
 69   if(pt->kind&port_file) {
 70     fputs(s,pt->rep.stdio.file);
 71     if( pt->rep.stdio.interactive )
 72          fflush( pt->rep.stdio.file );
 73   } else {
 74     for(;*s;s++) {
 75       if(pt->rep.string.curr!=pt->rep.string.past_the_end) {
(4635 . 6)(4639 . 9)
 77   int i, n=sizeof(dispatch_table)/sizeof(dispatch_table[0]);
 78   pointer x;
 79 
 80   /* fix unitialized free under Mac OS X */
 81   memset( sc->load_stack, 0, sizeof(port) * MAXFIL );
 82 
 83   num_zero.is_fixnum=1;
 84   num_zero.value.ivalue=0;
 85   num_one.is_fixnum=1;
(4801 . 15)(4808 . 17)
 87 { scheme_load_named_file(sc,fin,0); }
 88 
 89 void scheme_load_named_file(scheme *sc, FILE *fin, const char *filename) {
 90   int interactive_repl = sc->interactive_repl && !filename;
 91   dump_stack_reset(sc);
 92   sc->envir = sc->global_env;
 93   sc->file_i=0;
 94   sc->load_stack[0].kind=port_input|port_file;
 95   sc->load_stack[0].rep.stdio.file=fin;
 96   sc->load_stack[0].rep.stdio.interactive=interactive_repl;
 97   sc->loadport=mk_port(sc,sc->load_stack);
 98   sc->retcode=0;
 99   if(fin==stdin) {
100     sc->interactive_repl=1;
101   if(interactive_repl) {
102     sc->interactive_repl=interactive_repl;
103   }
104 
105 #if SHOW_ERROR_LINE