can-see-submarine wrong parsed.

This commit is contained in:
johns 2000-06-11 17:28:57 +00:00
parent 9c4876b5d1
commit 2d8b75540a

View file

@ -472,7 +472,7 @@ local SCM CclDefineUnitType(SCM list)
} else if( gh_eq_p(value,gh_symbol2scm("submarine")) ) {
type->Submarine=1;
} else if( gh_eq_p(value,gh_symbol2scm("can-see-submarine")) ) {
type->CanSeeSubmarine=0;
type->CanSeeSubmarine=1;
} else if( gh_eq_p(value,gh_symbol2scm("cower-worker")) ) {
type->CowerWorker=1;
} else if( gh_eq_p(value,gh_symbol2scm("tanker")) ) {