diff options
Diffstat (limited to 'module/rnrs')
-rw-r--r-- | module/rnrs/conditions.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/module/rnrs/conditions.scm b/module/rnrs/conditions.scm index 9c6539fef..53d4d0f6c 100644 --- a/module/rnrs/conditions.scm +++ b/module/rnrs/conditions.scm @@ -126,10 +126,15 @@ (generate-accessors (syntax-rules () ((_ counter (f a) . rest) - (begin (define a (record-accessor condition-type counter)) + (begin (define a + (condition-accessor + condition-type + (record-accessor condition-type counter))) (generate-accessors (+ counter 1) rest))) ((_ counter ((f a))) - (define a (record-accessor condition-type counter))) + (define a + (condition-accessor + condition-type (record-accessor condition-type counter)))) ((_ counter ()) (begin)) ((_ counter) (begin))))) (begin |