Mercurial > repos > icfp2014
comparison code/lmc.tp @ 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 | 4bc308c03952 |
children | 0e1fc2b2832f |
comparison
equal
deleted
inserted
replaced
37:e613d243d2bc | 38:6b9b21456cf4 |
---|---|
177 top | 177 top |
178 ]) | 178 ]) |
179 prog setLabel: end | 179 prog setLabel: end |
180 } | 180 } |
181 _funHandlers set: "isInteger?" :args syms { | 181 _funHandlers set: "isInteger?" :args syms { |
182 compileExpr: (args value) syms: syms | |
183 prog add: (inst: "ATOM" #[]) | |
184 } | |
185 _funHandlers set: "empty?" :args syms { | |
182 compileExpr: (args value) syms: syms | 186 compileExpr: (args value) syms: syms |
183 prog add: (inst: "ATOM" #[]) | 187 prog add: (inst: "ATOM" #[]) |
184 } | 188 } |
185 _funHandlers set: "value" :args syms { | 189 _funHandlers set: "value" :args syms { |
186 compileExpr: (args value) syms: syms | 190 compileExpr: (args value) syms: syms |