From 10244e3b6dcf312f45105ac531a24bcdc1af9302 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 12 Sep 2011 10:51:40 +0000
Subject: 	* interp/g-opt.boot (optList): Tidy.

---
 src/interp/g-opt.boot | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 983cd634..958a1f6a 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -584,7 +584,9 @@ optTry form ==
 
 optList form ==
   form is ['%list] => '%nil
-  form
+  literalElts := [(x is ['QUOTE,y] => y; leave "failed") for x in form.args]
+  literalElts is "failed" => form
+  quoteForm literalElts
 
 optCollectVector form ==
   [.,eltType,:iters,body] := form
-- 
cgit v1.2.3