aboutsummaryrefslogtreecommitdiff
path: root/src/interp/ptrees.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/ptrees.boot')
-rw-r--r--src/interp/ptrees.boot3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/ptrees.boot b/src/interp/ptrees.boot
index e8ff9ee6..6aa764af 100644
--- a/src/interp/ptrees.boot
+++ b/src/interp/ptrees.boot
@@ -85,8 +85,7 @@ pfDocument? form == pfAbSynOp?(form, 'Document)
pfDocumentText form == tokPart form
pfLiteral? form ==
- MEMQ(pfAbSynOp form,'(integer symbol expression
- one zero char string float))
+ pfAbSynOp form in '(integer symbol expression one zero char string float)
pfLiteralClass form == pfAbSynOp form
pfLiteralString form == tokPart form