From abe40532c348585754cbe16bcd30320ce86d81c6 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 21 May 2019 17:46:33 -0400
Subject: [PATCH] Include missing arg

---
 scheme/eval.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index 223c7520..dc0a2d1a 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -434,7 +434,7 @@
 
 (define (analyze-quoted exp)
   (let ((qval (cadr exp)))
-    (Cyc-set-immutable! qval) ;; TODO: OK? Don't want to modify a persistent object
+    (Cyc-set-immutable! qval #t) ;; TODO: OK? Don't want to modify a persistent object
     (lambda (env) qval)))
 
 (define-c assoc-cdr