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