X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcompiler.lisp;h=60860b31770a0549617686cacb72eadf2a957585;hb=f9d87f161987d9bbbb1c70d7c833e72823eda584;hp=644ac6a18825815b51d469d95aefe7bb82fab701;hpb=29c5587e4ad81dd1442c5f54cc686a45f7cb9d2e;p=jscl.git

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index 644ac6a..60860b3 100644
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -1267,6 +1267,10 @@
 (define-builtin in (key object)
   `(bool (in (call |xstring| ,key) ,object)))
 
+(define-builtin delete-property (key object)
+  `(selfcall
+    (delete (property ,object (call |xstring| ,key)))))
+
 (define-builtin map-for-in (function object)
   `(selfcall
     (var (f ,function)