From 638fa886d7bae9f74edb3da6350c5f38857eb3db Mon Sep 17 00:00:00 2001 From: Fengyang Wang Date: Thu, 27 Apr 2017 01:33:40 -0400 Subject: [PATCH] Remove obsolete comparison LHS code --- src/julia-syntax.scm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/src/julia-syntax.scm b/src/julia-syntax.scm index 3828112cf4b60..1adb8c862e3b4 100644 --- a/src/julia-syntax.scm +++ b/src/julia-syntax.scm @@ -1865,18 +1865,13 @@ (define lhs (cadr e)) (define (function-lhs? lhs) (and (pair? lhs) - (or (and (eq? (car lhs) 'comparison) (length= lhs 4)) - (eq? (car lhs) 'call) + (or (eq? (car lhs) 'call) (eq? (car lhs) 'where) (and (eq? (car lhs) '|::|) (pair? (cadr lhs)) (eq? (car (cadr lhs)) 'call))))) (define (assignment-to-function lhs e) ;; convert '= expr to 'function expr - (if (eq? (car lhs) 'comparison) - ;; allow defining functions that use comparison syntax - (list* 'function - `(call ,(caddr lhs) ,(cadr lhs) ,(cadddr lhs)) (cddr e)) - (cons 'function (cdr e)))) + (cons 'function (cdr e))) (cond ((function-lhs? lhs) (expand-forms (assignment-to-function lhs e)))