X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=guile18%2Flang%2Felisp%2Fprimitives%2Fpure.scm;fp=guile18%2Flang%2Felisp%2Fprimitives%2Fpure.scm;h=7cb6b531778f900ee8206fd48ef2a0162a23a396;hb=139c38d9204dd07f6b235f83bae644faedbc63fd;hp=0000000000000000000000000000000000000000;hpb=652ed35a2013489d0a14fede6307cd2595abb2c4;p=lilypond.git

diff --git a/guile18/lang/elisp/primitives/pure.scm b/guile18/lang/elisp/primitives/pure.scm
new file mode 100644
index 0000000000..7cb6b53177
--- /dev/null
+++ b/guile18/lang/elisp/primitives/pure.scm
@@ -0,0 +1,8 @@
+(define-module (lang elisp primitives pure)
+  #:use-module (lang elisp internals fset))
+
+;; Purification, unexec etc. are not yet implemented...
+
+(fset 'purecopy identity)
+
+(define-public purify-flag %nil)