Drop old Elk patch

This commit is contained in:
Lassi Kortela 2023-02-15 14:31:23 +02:00
parent 59f770b92e
commit 00a2baa9ca
2 changed files with 2 additions and 53 deletions

2
.gitignore vendored Normal file
View File

@ -0,0 +1,2 @@
*.o
src/unroff

View File

@ -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";