p
/
ell
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix "unless" 

Best of all is, I don't even know why it must be like that.
This commit is contained in:
Přemysl Eric Janouch 2017-05-21 18:48:21 +02:00
parent 2224ca00ad
commit 120b604abd
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ell.c
View File

@ -1246,8 +1246,7 @@ init_runtime_library (struct context *ctx) {
const char *name; ///< Name of the function const char *name; ///< Name of the function
const char *definition; ///< The defining script const char *definition; ///< The defining script
} functions[] = { } functions[] = {
// FIXME: this "unless" is probably not going to work { "unless", "arg _cond _body; if (not (@_cond)) @_body" },
{ "unless", "arg _cond _body; if (not (eval @_cond)) @_body" },
// TODO: we should be able to apply them to all arguments // TODO: we should be able to apply them to all arguments
{ "ne?", "arg _ne1 _ne2; not (eq? @_ne1 @_ne2)" }, { "ne?", "arg _ne1 _ne2; not (eq? @_ne1 @_ne2)" },
{ "ge?", "arg _ge1 _ge2; not (lt? @_ge1 @_ge2)" }, { "ge?", "arg _ge1 _ge2; not (lt? @_ge1 @_ge2)" },