# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406407485 25200
# Node ID 6b9b21456cf4a4d9cd6fd8c345d4279b69373ebf
# Parent  e613d243d2bcdc06353813598b4a2fdd429893f0
Make empty? also map to ATOM so that LM-Quiche is closer to being a proper subset of regular Quiche

diff -r e613d243d2bc -r 6b9b21456cf4 code/lmc.tp
--- 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" #[])