remove pure storage support

[bpt/emacs.git] / src / data.c

diff --git a/src/data.c b/src/data.c
index 2de1c19..6d329f5 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -205,12 +205,6 @@ wrong_type_argument (register Lisp_Object predicate, register Lisp_Object value)
   xsignal2 (Qwrong_type_argument, predicate, value);
 }
 
-void
-pure_write_error (Lisp_Object obj)
-{
-  xsignal2 (Qerror, build_string ("Attempt to modify read-only object"), obj);
-}
-
 void
 args_out_of_range (Lisp_Object a1, Lisp_Object a2)
 {