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

ffi/unsafe: fix tauint handling in define-fun-syntax

Browse Source
This commit is contained in:
Matthew Flatt 2015-01-02 18:16:02 -07:00
parent 44073e31b4
commit daf9415a98
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-test-core/tests/racket/foreign-test.rktl
View File

@ -148,6 +148,9 @@
(check t 'd 16) (check t 'd 16)
(check t '(a b) 3)) (check t '(a b) 3))
;; Make sure `_box` at least compiles:
(test #t ctype? (_fun (_box _int) -> _void))
(define-cstruct _ic7i ([i1 _int] (define-cstruct _ic7i ([i1 _int]
[c7 _c7_list] [c7 _c7_list]
[i2 _int])) [i2 _int]))

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

@ -351,7 +351,7 @@
[else (set! keys (cons (cons key val) keys))])) [else (set! keys (cons (cons key val) keys))]))
(let loop ([t (disarm orig)]) (let loop ([t (disarm orig)])
(define (next rest . args) (apply setkey! args) (loop rest)) (define (next rest . args) (apply setkey! args) (loop rest))
(define (rearm e) (syntax-rearm e orig)) (define (rearm e) (syntax-rearm e orig #t))
(syntax-case* t (syntax-case* t
(type: expr: bind: 1st-arg: prev-arg: pre: post: keywords: =>) (type: expr: bind: 1st-arg: prev-arg: pre: post: keywords: =>)
id=? id=?