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