aboutsummaryrefslogtreecommitdiff
path: root/src/interp/functor.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r--src/interp/functor.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index 8c6fc79c..be229149 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -284,7 +284,7 @@ optFunctorBody x ==
first pred="HasCategory" => nil
['%when,:l]
['%when,:l]
- [optFunctorBody u for u in x]
+ [optFunctorBody first x,:optFunctorBody rest x]
optFunctorBodyQuotable u ==
u = nil or integer? u or string? u => true