From 5a03f408233bf4e17759ace9a83dcf6012f72dcc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 3 Oct 2011 02:10:23 +0000
Subject: 	Cleanup.

---
 src/interp/format.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/format.boot')

diff --git a/src/interp/format.boot b/src/interp/format.boot
index c368f164..4498f339 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -789,7 +789,7 @@ form2Fence form ==
 
 form2Fence1 x ==
   x is [op,:argl] =>
-    op = "QUOTE" => ['"(QUOTE ",:form2FenceQuote first argl,'")"]
+    op = 'QUOTE => ['"(QUOTE ",:form2FenceQuote first argl,'")"]
     ['"(", FORMAT(nil, '"|~a|", op),:"append"/[form2Fence1 y for y in argl],'")"]
   null x => '""
   ident? x => FORMAT(nil, '"|~a|", x)
-- 
cgit v1.2.3