Ticket #1151: srfi-99.patch

File srfi-99.patch, 524 bytes (added by acharlton, 7 years ago)
  • srfi-99.scm

    diff -du srfi-99//srfi-99.scm srfi-99-new//srfi-99.scm
    old new  
    380380   (lambda (stx inject id=)
    381381     (let* ((rtd (cadr stx))
    382382            (name (caddr stx))
    383             (accessor (symbol-append (inject rtd) '- (inject name))))
     383            (accessor (symbol-append (inject rtd) '- (strip-syntax name))))
    384384       `(define-record-field ,rtd (,name ,(inject accessor)))))))
    385385
    386386(define-syntax define-record-field