(define-syntax access (syntax-rules (floating-vector-ref floating-vector-set!) ((access floating-vector-ref environment) vector-ref) ((acccess floating-vector-set! environment) vector-set!) ((access name environment) name)))