slight optimization

JuliaLang · Jul 19, 2017 · 07a2014 · 07a2014
1 parent 052b0f2
commit 07a2014
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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)