646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
25 lines
536 B
Diff
25 lines
536 B
Diff
diff --git a/scheme.c b/scheme.c
|
|
index 6186ef0..5a43592 100644
|
|
--- a/scheme.c
|
|
+++ b/scheme.c
|
|
@@ -4949,19 +4949,7 @@ pointer scheme_eval(scheme *sc, pointer obj)
|
|
|
|
#if STANDALONE
|
|
|
|
-#if defined(__APPLE__) && !defined (OSX)
|
|
-int main()
|
|
-{
|
|
- extern MacTS_main(int argc, char **argv);
|
|
- char** argv;
|
|
- int argc = ccommand(&argv);
|
|
- MacTS_main(argc,argv);
|
|
- return 0;
|
|
-}
|
|
-int MacTS_main(int argc, char **argv) {
|
|
-#else
|
|
int main(int argc, char **argv) {
|
|
-#endif
|
|
scheme sc;
|
|
FILE *fin;
|
|
char *file_name=InitFile;
|