From ec25eddc28ec449fab14ef08cfb3513850e2e54a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 5 Aug 2019 14:09:14 -0400
Subject: [PATCH] Issue #331 - Prevent syntax error during eval

Prevent an unquoted symbol from throwing a syntax error when evaluating a define-record-type form. Note there are still other issues with creating a record type in the interpreter at this time.
---
 scheme/base.sld | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index ff232d55..2c9dae2f 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -1921,9 +1921,7 @@
                           ,parent 
                           ',(map car fields)))
          ;; predicate
-         (,_define ,pred (,(rename 'make-type-predicate)
-                          ,pred ;(symbol->string pred) ;(identifier->symbol pred))
-                          ,name))
+         (,_define ,pred (,(rename 'make-type-predicate) 0 ,name))
          ;; fields
          ,@(map (lambda (f)
                   (and (pair? f) (pair? (cdr f))