-L swi compatibility had broken standard -L usage in YAP :(wq

This commit is contained in:
Vítor Santos Costa 2008-08-29 05:19:36 +01:00
parent 05f93cd4e6
commit 04c944972b

View File

@ -514,7 +514,7 @@ parse_yap_arguments(int argc, char *argv[], YAP_init_args *iap)
break; break;
#endif #endif
case 'L': case 'L':
if (p[0]) if (p[1])
goto stack_mode; goto stack_mode;
iap->QuietMode = TRUE; iap->QuietMode = TRUE;
iap->HaltAfterConsult = TRUE; iap->HaltAfterConsult = TRUE;