+static char *sccsid = "@(#)lisp.c 34.1 10/3/80";
+
#include "global.h"
/* main *****************************************************************/
static int virgin = 0;
int Xargc;
char **Xargv;
+extern int environ;
-main(argc,argv)
+main(argc,argv,arge)
char **argv;
{
lispval temp, matom();
extern int errp;
+ extern int holbeg,holend,usehole;
+ extern int *curhbeg;
+
snpand(0);
+ environ = arge;
setbuf(stdout,_sobuf);
Xargc = argc;
Xargv = argv;
}
Ntpl()
{
- lispval Lread();
+ lispval Lread(),Istsrch();
snpand(0);
if (virgin == 0) {
- fputs("Franz Lisp, Opus 32",poport);
+ fputs(Istsrch(matom("version"))->d.cdr->d.cdr->d.cdr,poport);
virgin = 1;
}
lbot = np;
}
}
+#ifndef VMS
exit(code)
{
extern int fvirgin;
proflush();
_exit(code);
}
+#endif