aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot4
1 files changed, 3 insertions, 1 deletions
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