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

Fixing dumb bug from me

Browse Source
This commit is contained in:
Jay McCarthy 2010-05-24 18:46:31 -06:00
parent 9a1e3a5ca2
commit 3f1a89b8f8
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/plai/datatype.rkt
View File

@ -184,7 +184,7 @@
'variant-field #'field)))
...
(define set-variant-field!
(lambda-memocontract (v)
(lambda-memocontract (v nv)
(contract (f:variant? field/c . -> . void)
set-variant*-field!
'set-variant-field! 'use

11
collects/tests/plai/datatype-state.rkt Normal file
View File

@ -0,0 +1,11 @@
#lang plai
(require (prefix-in eli: tests/eli-tester))
(define-type A (a (x number?)))
(define an-a (a 10))
(eli:test
(a-x an-a) => 10
(set-a-x! an-a 20)
(a-x an-a) => 20)