From 05088599683dca357a145effd96bf1010dc70997 Mon Sep 17 00:00:00 2001 From: Daphne Preston-Kendal Date: Sun, 27 Aug 2023 13:08:04 +0200 Subject: [PATCH] Correct definition of R7RS define-record-type --- scheme-complete.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme-complete.el b/scheme-complete.el index 1035d17..0235e43 100644 --- a/scheme-complete.el +++ b/scheme-complete.el @@ -302,7 +302,7 @@ at that location, and `beep' will just beep and do nothing." (define-syntax (syntax (identifier body \.\.\.) undefined) "create a macro") (define (syntax (identifier value) undefined) "define a new variable") (define-values (syntax (identifier \.\.\.) expr)) - (define-record-type (syntax name (make field \.\.\.) pred-name (field get set) \.\.\.)) + (define-record-type (syntax (name (make field \.\.\.) pred-name (field get set) \.\.\.)) undefined) (denominator (lambda (rational) n)) (do (syntax (vars finish body \.\.\.)) "simple iterator") (dynamic-wind (lambda (before-thunk thunk after-thunk) obj))