fix error typo
This commit is contained in:
parent
66683cdffe
commit
b83373d6a4
|
@ -5621,7 +5621,7 @@ static Scheme_Object *file_or_dir_permissions(int argc, Scheme_Object *argv[])
|
||||||
new_bits = SCHEME_INT_VAL(l);
|
new_bits = SCHEME_INT_VAL(l);
|
||||||
} else
|
} else
|
||||||
scheme_wrong_contract("file-or-directory-permissions",
|
scheme_wrong_contract("file-or-directory-permissions",
|
||||||
"(or/c #f 'bits (integer-in 0 65535)",
|
"(or/c #f 'bits (integer-in 0 65535))",
|
||||||
1, argc, argv);
|
1, argc, argv);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user