syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

wrap contracts given to field with `field\c`

This commit is contained in:
Sam Caldwell 2016-07-18 15:20:22 -04:00
parent 0fb5fa52f4
commit 9cf12a381e
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/syndicate/actor.rkt
View File

@ -288,7 +288,7 @@
(syntax-case stx ()
[(_ id init contract)
(if (syntax-e #'contract)
#'(define/contract id contract (make-field 'id init))
#'(define/contract id (field/c contract) (make-field 'id init))
#'(define id (make-field 'id init)))]))
(define-syntax (field stx)