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

* Fixed bug 164173: Added more descriptive errors to incorrect args 

to record constructors.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-21 01:39:31 -05:00
parent 888251df70
commit 978093bcc2
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -261,8 +261,12 @@
(lambda flds (lambda flds
(let ([n (rtd-size main-rtd)]) (let ([n (rtd-size main-rtd)])
(unless (= (length flds) size) (unless (= (length flds) size)
(error 'record-constructor (apply error
"main expecting args, got" n flds)) 'a-record-constructor
(format
"expected ~a args, got ~a instead"
n (length flds))
flds))
(let ([r ($make-struct main-rtd n)]) (let ([r ($make-struct main-rtd n)])
(let f ([i 0] [r r] [flds flds] [f* f*]) (let f ([i 0] [r r] [flds flds] [f* f*])
(cond (cond
@ -298,8 +302,12 @@
(lambda fmls (lambda fmls
(lambda flds (lambda flds
(unless (= (length flds) n) (unless (= (length flds) n)
(error 'record-constructor (apply error
"expecting args, got" n flds)) 'a-record-constructor
(format
"expected ~a args, got ~a instead"
n (length flds))
flds))
(apply (p (cons flds f*)) fmls))))))))) (apply (p (cons flds f*)) fmls)))))))))
(unless (rcd? rcd) (unless (rcd? rcd)
(error who "not a record constructor descriptor" rcd)) (error who "not a record constructor descriptor" rcd))

2
scheme/last-revision
View File

@ -1 +1 @@
1097 1098