Drop old Elk patch
This commit is contained in:
parent
59f770b92e
commit
00a2baa9ca
|
@ -0,0 +1,2 @@
|
|||
*.o
|
||||
src/unroff
|
|
@ -1,53 +0,0 @@
|
|||
*** 1.59 1994/01/24 16:03:30
|
||||
--- src/main.c 1995/02/01 17:06:20
|
||||
***************
|
||||
*** 90,95 ****
|
||||
--- 90,98 ----
|
||||
struct stat st;
|
||||
extern int errno;
|
||||
char foo;
|
||||
+ #ifdef NOMAIN
|
||||
+ # define foo (av[0][0])
|
||||
+ #endif
|
||||
|
||||
#ifdef CAN_DUMP
|
||||
bzero (unused, 1); /* see comment above */
|
||||
***************
|
||||
*** 207,213 ****
|
||||
* the load-path, so that -p can be used.
|
||||
*/
|
||||
Error_Tag = "scheme-init";
|
||||
! initfile = Safe_Malloc (strlen (SCM_DIR) + 1 + sizeof (INITFILE));
|
||||
sprintf (initfile, "%s/%s", SCM_DIR, INITFILE);
|
||||
if (stat (initfile, &st) == -1 && errno == ENOENT)
|
||||
file = Make_String (INITFILE, sizeof(INITFILE)-1);
|
||||
--- 210,216 ----
|
||||
* the load-path, so that -p can be used.
|
||||
*/
|
||||
Error_Tag = "scheme-init";
|
||||
! initfile = Safe_Malloc (strlen (SCM_DIR) + 1 + sizeof (INITFILE) + 1);
|
||||
sprintf (initfile, "%s/%s", SCM_DIR, INITFILE);
|
||||
if (stat (initfile, &st) == -1 && errno == ENOENT)
|
||||
file = Make_String (INITFILE, sizeof(INITFILE)-1);
|
||||
***************
|
||||
*** 220,227 ****
|
||||
|
||||
Error_Tag = "top-level";
|
||||
#ifdef NOMAIN
|
||||
! if ((loadfile = toplevel) == 0)
|
||||
return;
|
||||
#endif
|
||||
if (loadfile == 0)
|
||||
loadfile = "toplevel.scm";
|
||||
--- 223,233 ----
|
||||
|
||||
Error_Tag = "top-level";
|
||||
#ifdef NOMAIN
|
||||
! if ((loadfile = toplevel) == 0) {
|
||||
! Interpreter_Initialized = 1;
|
||||
! GC_Debug = debug;
|
||||
return;
|
||||
+ }
|
||||
#endif
|
||||
if (loadfile == 0)
|
||||
loadfile = "toplevel.scm";
|
Loading…
Reference in New Issue