delay evaluation of default-make-fail argument until use

This reverts part of 778b1845.
2018-03-29 11:48:59 +02:00 · 2018-03-29 11:48:59 +02:00 · 0f3f338b22
commit 0f3f338b22
parent 0083f5c858
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/ffi/unsafe/define.rkt
+++ b/racket/collects/ffi/unsafe/define.rkt
@ -95,7 +95,7 @@
                 (raise-type-error 'define-ffi-definer
                                   "ffi-lib or #f"
                                   v))))
-         (define the-default-make-fail default-make-fail)
+         (define (the-default-make-fail sym) (default-make-fail sym))
         (define-syntax define-
           (make-ffi-definer-transformer
            (quote-syntax the-ffi-lib)