version 1.259, 2012/07/23 14:53:53
|
version 1.260, 2012/07/23 15:00:53
|
Line 2503 int gforth_main(int argc, char **argv, c
|
Line 2503 int gforth_main(int argc, char **argv, c
|
gforth_setstacks(); |
gforth_setstacks(); |
retvalue=gforth_boot(argc, argv, path); |
retvalue=gforth_boot(argc, argv, path); |
if(retvalue > 0) { |
if(retvalue > 0) { |
/* gforth_execute(gforth_find("license")); */ |
gforth_execute(gforth_find("bootmessage")); |
retvalue = gforth_quit(); |
retvalue = gforth_quit(); |
} |
} |
gforth_cleanup(); |
gforth_cleanup(); |