can-see-submarine wrong parsed.
This commit is contained in:
parent
9c4876b5d1
commit
2d8b75540a
1 changed files with 1 additions and 1 deletions
|
@ -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")) ) {
|
||||
|
|
Loading…
Add table
Reference in a new issue