Merge branch 'master' of github.com:JuliaLang/julia

JuliaLang · May 27, 2014 · 01552f6 · 01552f6
2 parents 1a670f9 + 2e594e3
commit 01552f6
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/julia-parser.scm b/src/julia-parser.scm
@@ -68,13 +68,12 @@
 			  (apply append (map eval prec-names)))))
 
 (define op-chars
-  (list->string
-   (delete-duplicates
-    (apply append
-	   (map string->list (map symbol->string operators))))))
+  (delete-duplicates
+   (apply append
+	  (map string->list (map symbol->string operators)))))
 
 ;; characters that can be in an operator
-(define (opchar? c) (and (char? c) (string.find op-chars c)))
+(define opchar? (Set op-chars))
 ;; characters that can follow . in an operator
 (define (dot-opchar? c) (and (char? c) (string.find ".*^/\\+-'<>!=%" c)))
 (define operator? (Set operators))