Browse files

Hide the utility functions.

  • Loading branch information...
1 parent 6de9916 commit 9ac9506407c56313501c5703020f185b957f7bba @skeeto committed Aug 17, 2012
Showing with 7 additions and 6 deletions.
  1. +7 −6 fakespace.el
13 fakespace.el
@@ -44,16 +44,16 @@
;;; Code:
-(defun atom-list (&optional ob)
+(defun fakespace--atom-list (&optional ob)
"Return given obarray OB as a list. Defaults to obarray."
(let ((lst ()))
(mapatoms (lambda (s) (push s lst)) ob)
-(defun atom-difference (a b)
+(defun fakespace--atom-difference (a b)
"Like set-difference, but, for performance reasons, requires
-specially formed lists (i.e. from `atom-list'). Returns items
-that are in B and not A."
+specially formed lists (i.e. from `fakespace--atom-list'). Returns
+items that are in B and not A."
(let ((diff))
(while (and (not (null a)) (not (null b)))
(while (not (eq (car a) (car b)))
@@ -69,13 +69,14 @@ that are in B and not A."
(let ((type (car arg)))
(cond ((eq type :exports) t) ; interning the symbols is enough
((eq type :use) (mapcar (lambda (s) (require s)) (cdr arg))))))
- (setq old-obarray (atom-list))
+ (setq old-obarray (fakespace--atom-list))
`(provide (quote ,name)))
(defmacro end-package ()
(cons 'progn
(mapcar (lambda (s) `(unintern (quote ,s) nil))
- (atom-difference old-obarray (atom-list))))))
+ (fakespace--atom-difference old-obarray
+ (fakespace--atom-list))))))
(provide 'fakespace)

0 comments on commit 9ac9506

Please sign in to comment.