fix set-ref! function bug