st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added test18 on cyclic equality

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-08-07 21:40:51 +03:00
parent 026158923f
commit 6f9d0850c7
3 changed files with 99 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
runtime/runtime.c
View file

@ -194,9 +194,9 @@ extern int LcompareTags (void *p, void *q) {
if (TAG(pd->tag) == SEXP_TAG && TAG(qd->tag) == SEXP_TAG) {
return
#ifndef DEBUG_PRINT
(TO_SEXP(p)->tag) - (TO_SEXP(q)->tag);
BOX((TO_SEXP(p)->tag) - (TO_SEXP(q)->tag));
#else
(GET_SEXP_TAG(TO_SEXP(p)->tag)) - (GET_SEXP_TAG(TO_SEXP(p)->tag));
BOX((GET_SEXP_TAG(TO_SEXP(p)->tag)) - (GET_SEXP_TAG(TO_SEXP(p)->tag)));
#endif
}
else failure ("not a sexpr in compareTags: %d, %d\n", TAG(pd->tag), TAG(qd->tag));