Artifact 4c7334767c268f59c8ba56f09ed89f155c28db76:

• File sdl2/error-functions.ss — part of check-in [c9770d8f7f] at 2016-08-17 07:47:19 on branch trunk — added sdl2 (user: ovenpasta@pizzahack.eu size: 251)

0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0010: 20 69 6e 74 20 73 64 6c 2d 73 65 74 2d 65 72 72   int sdl-set-err
0020: 6f 72 20 28 28 66 6d 74 20 73 74 72 69 6e 67 29  or ((fmt string)
0030: 29 20 22 53 44 4c 5f 53 65 74 45 72 72 6f 72 22  ) "SDL_SetError"
0040: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75  ).(define-sdl-fu
0050: 6e 63 20 73 74 72 69 6e 67 20 73 64 6c 2d 67 65  nc string sdl-ge
0060: 74 2d 65 72 72 6f 72 20 28 29 20 22 53 44 4c 5f  t-error () "SDL_
0070: 47 65 74 45 72 72 6f 72 22 29 0a 28 64 65 66 69  GetError").(defi
0080: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64  ne-sdl-func void
0090: 20 73 64 6c 2d 63 6c 65 61 72 2d 65 72 72 6f 72   sdl-clear-error
00a0: 20 28 29 20 22 53 44 4c 5f 43 6c 65 61 72 45 72   () "SDL_ClearEr
00b0: 72 6f 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 64  ror").(define-sd
00c0: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 65  l-func int sdl-e
00d0: 72 72 6f 72 20 28 28 63 6f 64 65 20 73 64 6c 2d  rror ((code sdl-
00e0: 65 72 72 6f 72 63 6f 64 65 2d 74 29 29 20 22 53  errorcode-t)) "S
00f0: 44 4c 5f 45 72 72 6f 72 22 29 0a                 DL_Error").