From e9764488975588d4ba37b44f111a834cf9d0cccf Mon Sep 17 00:00:00 2001 From: "Steven G. Johnson" Date: Wed, 19 Jul 2017 10:47:17 -0400 Subject: [PATCH] another slight optimization --- src/julia-parser.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/julia-parser.scm b/src/julia-parser.scm index 15665fda6223c..22325d2444485 100644 --- a/src/julia-parser.scm +++ b/src/julia-parser.scm @@ -66,7 +66,7 @@ (define (maybe-strip-op-suffix op) (if (symbol? op) (let ((op_ (strip-op-suffix op))) - (if (or (eqv? op op_) (no-suffix? op_)) + (if (or (eq? op op_) (no-suffix? op_)) op op_)) op))