(define (match-result:bind result name value) (let ((cloned-result (clone result))) (hash-table/put! (match-result:variables cloned-result) name value) cloned-result))