Mercurial > repos > icfp2014
changeset 38:6b9b21456cf4
Make empty? also map to ATOM so that LM-Quiche is closer to being a proper subset of regular Quiche
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Sat, 26 Jul 2014 13:44:45 -0700 |
| parents | e613d243d2bc |
| children | 0e1fc2b2832f |
| files | code/lmc.tp |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/code/lmc.tp Sat Jul 26 03:18:17 2014 -0700 +++ b/code/lmc.tp Sat Jul 26 13:44:45 2014 -0700 @@ -182,6 +182,10 @@ compileExpr: (args value) syms: syms prog add: (inst: "ATOM" #[]) } + _funHandlers set: "empty?" :args syms { + compileExpr: (args value) syms: syms + prog add: (inst: "ATOM" #[]) + } _funHandlers set: "value" :args syms { compileExpr: (args value) syms: syms prog add: (inst: "CAR" #[])