Import guile-1.8 as multiple upstream tarball component

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

diff --git a/guile18/lang/elisp/primitives/fns.scm b/guile18/lang/elisp/primitives/fns.scm
new file mode 100644 (file)
index 0000000..f7a4aa0
--- /dev/null
+++ b/guile18/lang/elisp/primitives/fns.scm
@@ -0,0 +1,45 @@
+(define-module (lang elisp primitives fns)
+  #:use-module (lang elisp internals set)
+  #:use-module (lang elisp internals fset)
+  #:use-module (lang elisp internals null))
+
+(fset 'fset fset)
+(fset 'defalias fset)
+
+(fset 'apply elisp-apply)
+
+(fset 'funcall
+      (lambda (function . args)
+       (elisp-apply function args)))
+
+(fset 'interactive-p
+      (lambda ()
+       %nil))
+
+(fset 'commandp
+      (lambda (sym)
+       (if (interactive-specification (fref sym)) #t %nil)))
+
+(fset 'fboundp
+      (lambda (sym)
+       (->nil (variable? (symbol-fref sym)))))
+
+(fset 'symbol-function fref/error-if-void)
+
+(fset 'macroexpand macroexpand)
+
+(fset 'subrp
+      (lambda (obj)
+       (->nil (not (not-subr? obj)))))
+
+(fset 'byte-code-function-p
+      (lambda (object)
+       %nil))
+
+(fset 'run-hooks
+      (lambda hooks
+       (for-each (lambda (hooksym)
+                   (for-each (lambda (fn)
+                               (elisp-apply fn '()))
+                             (value hooksym #f)))
+                 hooks)))