Minor launcher fixes

release
slava 2006-04-09 23:14:30 +00:00
parent 5279cd99bc
commit 0989004dd2
3 changed files with 7 additions and 3 deletions

View File

@ -6,6 +6,7 @@ should fix in 0.82:
- when generating a 32-bit image on a 64-bit system, large numbers which should
be bignums become fixnums
- httpd fep
- SBUF" " i/o bug
- clicks sent twice
- speed up ideas:
- only do clipping for certain gadgets

View File

@ -64,6 +64,7 @@ int main(int argc, char** argv)
CELL literal_size = 128;
CELL args;
CELL i;
bool image_given = true;
early_init();
@ -88,7 +89,10 @@ int main(int argc, char** argv)
}
if(image == NULL)
{
image_given = false;
image = default_image_path();
}
init_factor(image,
ds_size * 1024,
@ -100,7 +104,7 @@ int main(int argc, char** argv)
literal_size * 1024);
args = F;
while(--argc > 1)
while(--argc > (image_given ? 1 : 0))
{
args = cons(tag_object(from_c_string(argv[argc])),args);
}

View File

@ -42,7 +42,6 @@ void early_init(void)
const char *default_image_path(void)
{
NSBundle *bundle = [NSBundle mainBundle];
NSString *path = [bundle bundlePath];
NSString *image = [path stringByAppendingString:@"/Contents/Resources/factor.image"];
NSString *image = [[bundle resourcePath] stringByAppendingString:@"/factor.image"];
return [image cString];
}