-(define-builtin < (x y) (js!bool (num-op-num x "<" y)))
-(define-builtin > (x y) (js!bool (num-op-num x ">" y)))
-(define-builtin = (x y) (js!bool (num-op-num x "==" y)))
-(define-builtin <= (x y) (js!bool (num-op-num x "<=" y)))
-(define-builtin >= (x y) (js!bool (num-op-num x ">=" y)))
+(defmacro define-builtin-comparison (op sym)
+ `(define-raw-builtin ,op (&rest args)
+ (js!bool
+ (let ((x (car args))
+ (res "true"))
+ (dolist (y (cdr args))
+ (setq res (concat "("
+ (ls-compile x) " " ,sym " " (ls-compile y) ")" " && " res))
+ (setq x y))
+ res))))
+
+(define-builtin-comparison > ">")
+(define-builtin-comparison < "<")
+(define-builtin-comparison >= ">=")
+(define-builtin-comparison <= "<=")
+(define-builtin-comparison = "==")