From 07a2014f9aaebf3b91e1a8c1a4b808662beee992 Mon Sep 17 00:00:00 2001
From: "Steven G. Johnson" <stevenj@mit.edu>
Date: Thu, 15 Jun 2017 13:18:12 -0400
Subject: [PATCH] slight optimization

---
 src/julia-parser.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/julia-parser.scm b/src/julia-parser.scm
index 7a58dbd1d6228..15665fda6223c 100644
--- a/src/julia-parser.scm
+++ b/src/julia-parser.scm
@@ -72,7 +72,11 @@
       op))
 
 ; like Set, but strip operator suffixes before testing membership
-(define (SuffSet l) (let ((S (Set l))) (lambda (op) (S (maybe-strip-op-suffix op)))))
+(define (SuffSet l)
+  (let ((S (Set l)))
+    (if (every no-suffix? l)
+        S ; suffixes not allowed for anything in l
+        (lambda (op) (S (maybe-strip-op-suffix op))))))
 
 ;; for each prec-x generate an is-prec-x? procedure
 (for-each (lambda (name)