Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / lang / elisp / primitives / pure.scm

diff --git a/guile18/lang/elisp/primitives/pure.scm b/guile18/lang/elisp/primitives/pure.scm
new file mode 100644 (file)
index 0000000..7cb6b53
--- /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)