[bpt/guile.git] / lang / elisp / primitives / pure.scm

(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)
Commit	Line	Data
3d1a89b9 NJ	1	(define-module (lang elisp primitives pure)
	2	#:use-module (lang elisp internals fset))
	3
	4	;; Purification, unexec etc. are not yet implemented...
	5
	6	(fset 'purecopy identity)
	7
e79236a9	8	(define-public purify-flag %nil)