implements srfi-17(generalized-set!)

@stibear  `'@@setter` instead?