From bd9733926076885e3417b74de76e4c9c7bc56254 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:28 -0800 Subject: Import Upstream version 2c7 --- struct.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'struct.scm') diff --git a/struct.scm b/struct.scm index 8c5c423..100d3ff 100644 --- a/struct.scm +++ b/struct.scm @@ -100,17 +100,17 @@ (map (lambda (field) (string->symbol - (string-append + (string-append "set-" name "-" (symbol->string field) "!"))) (cadr x)))) (k (car x) make-name name? field-accessors field-setters)))) (else (slib:error "define-record: invalid syntax" x))))) - + (define check-variant-case-syntax (let ((make-clause (lambda (clause) - (if (eq? (car clause) 'else) + (if (eq? (car clause) 'else) clause (let ((name (symbol->string (car clause)))) (let ((name? (string->symbol (string-append name "?"))) -- cgit v1.2.3