Changeset 34037 in project for release/4


Ignore:
Timestamp:
04/28/17 12:25:36 (3 years ago)
Author:
Christian Kellermann
Message:

patch sdl and sdl-ttf to adjust for effects of bugfix #518, thanks Peter

Location:
release/4
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/sdl-ttf/trunk/sdl-ttf.scm

    r27337 r34037  
    104104       `(lambda (pointer)
    105105          (and pointer
    106                (,(i (symbol-append 'make- (i record-name))) pointer)))))))
     106               (,(i (symbol-append 'make- (strip-syntax record-name))) pointer)))))))
    107107
    108108;---------------------------------------------------------------------------
  • release/4/sdl/trunk/sdl-foreign-types-include.scm

    r27311 r34037  
    66          (and pointer
    77               (,(i (string->symbol
    8                      (string-append "make-"(symbol->string (i record-name))))) pointer)))))))
     8                     (string-append "make-" (symbol->string (strip-syntax record-name))))) pointer)))))))
    99
    1010(define-foreign-type SDL_version (c-pointer "SDL_version")
Note: See TracChangeset for help on using the changeset viewer.