From b31526d6ba610fbe355231339bb2b331bd4fb2af Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?P=C5=99emysl=20Janouch?= Date: Sun, 21 May 2017 12:46:21 +0200 Subject: Fix combined operators --- ell.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ell.c b/ell.c index 0445b6f..0a7859c 100755 --- a/ell.c +++ b/ell.c @@ -1230,12 +1230,12 @@ init_runtime_library (struct context *ctx) { // FIXME: this "unless" is probably not going to work { "unless", "arg _cond _body; if (not (eval @_cond)) @_body" }, // TODO: we should be able to apply them to all arguments - { "ne?", "arg _ne1 _ne2; not (eq? @_ne1 @_ne2))" }, - { "ge?", "arg _ge1 _ge2; not (lt? @_ge1 @_ge2))" }, + { "ne?", "arg _ne1 _ne2; not (eq? @_ne1 @_ne2)" }, + { "ge?", "arg _ge1 _ge2; not (lt? @_ge1 @_ge2)" }, { "le?", "arg _le1 _le2; ge? @_le2 @_le1" }, { "gt?", "arg _gt1 _gt2; lt? @_gt2 @_gt1" }, - { "<>", "arg _<>1 _<>2; not (= @_<>1 @_<>2))" }, - { ">=", "arg _>=1 _>=2; not (< @_>=1 @_>=2))" }, + { "<>", "arg _<>1 _<>2; not (= @_<>1 @_<>2)" }, + { ">=", "arg _>=1 _>=2; not (< @_>=1 @_>=2)" }, { "<=", "arg _<=1 _<=2; >= @_<=2 @_<=1" }, { ">", "arg _>1 _>2; < @_>2 @_>1" }, }; -- cgit v1.2.3