aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPřemysl Janouch <p.janouch@gmail.com>2017-05-21 12:46:21 +0200
committerPřemysl Janouch <p.janouch@gmail.com>2017-05-21 13:19:49 +0200
commitb31526d6ba610fbe355231339bb2b331bd4fb2af (patch)
tree933930f2fe95c7167c520471a6d61676ef04aeff
parente1ec59043ebb32e1e5f0c5821f3ecb33e4b0ced0 (diff)
downloadell-b31526d6ba610fbe355231339bb2b331bd4fb2af.tar.gz
ell-b31526d6ba610fbe355231339bb2b331bd4fb2af.tar.xz
ell-b31526d6ba610fbe355231339bb2b331bd4fb2af.zip
Fix combined operators
-rwxr-xr-xell.c8
1 files 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" },
};