artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mini-mes: gcc: run (cons 0 1).

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2017-01-18 07:38:45 +01:00
parent e00d18b59f
commit 61e14e6e24
2 changed files with 882 additions and 78 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
mes.c
View file

@ -284,6 +284,7 @@ cdr (SCM x)
if (TYPE (x) != PAIR) error (cell_symbol_not_a_pair, cons (x, cell_symbol_cdr)); if (TYPE (x) != PAIR) error (cell_symbol_not_a_pair, cons (x, cell_symbol_cdr));
return CDR (x); return CDR (x);
} }
SCM SCM
eq_p (SCM x, SCM y) eq_p (SCM x, SCM y)
{ {

959
scaffold/mini-mes.c
View file

File diff suppressed because it is too large Load diff