elisp @@ macro

[bpt/guile.git] / module / language / elisp / boot.el

diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index 3550b5b..bef4c1d 100644 (file)
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -22,6 +22,9 @@
 (defmacro @ (module symbol)
   `(guile-ref ,module ,symbol))
 
+(defmacro @@ (module symbol)
+  `(guile-private-ref ,module ,symbol))
+
 (defmacro defun (name args &rest body)
   `(let ((proc (function (lambda ,args ,@body))))
      (%funcall (@ (language elisp runtime) set-symbol-function!)