suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

delay evaluation of default-make-fail argument until use

Browse Source 
This reverts part of 778b1845.
This commit is contained in:
Ryan Culpepper 2018-03-29 11:48:59 +02:00
parent 0083f5c858
commit 0f3f338b22
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/ffi/unsafe/define.rkt
View File

@ -95,7 +95,7 @@
(raise-type-error 'define-ffi-definer (raise-type-error 'define-ffi-definer
"ffi-lib or #f" "ffi-lib or #f"
v)))) v))))
(define the-default-make-fail default-make-fail) (define (the-default-make-fail sym) (default-make-fail sym))
(define-syntax define- (define-syntax define-
(make-ffi-definer-transformer (make-ffi-definer-transformer
(quote-syntax the-ffi-lib) (quote-syntax the-ffi-lib)