conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

changed error message as suggested in bug 173369.

This commit is contained in:
Abdulaziz Ghuloum 2007-12-15 09:00:31 -05:00
parent c1a677ca4b
commit 5a98c9e460
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/ikarus.records.procedural.ss
View File

@ -183,7 +183,8 @@
(eqv? sealed? (rtd-sealed? rtd)) (eqv? sealed? (rtd-sealed? rtd))
(eqv? opaque? (rtd-opaque? rtd)) (eqv? opaque? (rtd-opaque? rtd))
(same-fields-as-rtd? fields rtd)) (same-fields-as-rtd? fields rtd))
(die who "invalid arguments")) (die who "arguments not equivalent to those in an existing rtd"
parent sealed? opaque? fields))
rtd)] rtd)]
[else [else
(let ([rtd (generate-rtd name parent uid sealed? opaque? fields)]) (let ([rtd (generate-rtd name parent uid sealed? opaque? fields)])

2
scheme/last-revision
View File

@ -1 +1 @@
1248 1249