Looks right to me except the Scheme version is not tail-recursive, so there's a possibility of stack overflow.