remove unused code

* module/language/elisp/compile-tree-il.scm (runtime-error): Remove.
* module/language/elisp/runtime.scm (macro-error, runtime-error,
  elisp-bool, prim): Remove.

module/language/elisp/compile-tree-il.scm

@@ -110,11 +110,6 @@
 (define (report-error loc . args)
   (apply error args))
 
-(define (runtime-error loc msg . args)
-  (make-application loc
-                    (make-primitive-ref loc 'error)
-                    (cons (make-const loc msg) args)))
-
 ;;; Generate code to ensure a global symbol is there for further use of
 ;;; a given symbol.  In general during the compilation, those needed are
 ;;; only tracked with the bindings data structure.  Afterwards, however,

module/language/elisp/runtime.scm

@@ -34,9 +34,7 @@
             symbol-bound?
             symbol-fbound?
             makunbound!
-            fmakunbound!
-            runtime-error
-            macro-error)
+            fmakunbound!)
   #:export-syntax (defspecial prim))
 
 ;;; This module provides runtime support for the Elisp front-end.
@@ -55,22 +53,6 @@
 
 (define function-slot-module '(language elisp runtime function-slot))
 
-;;; Report an error during macro compilation, that means some special
-;;; compilation (syntax) error; or report a simple runtime-error from a
-;;; built-in function.
-
-(define (macro-error msg . args)
-  (apply error msg args))
-
-(define runtime-error macro-error)
-
-;;; Convert a scheme boolean to Elisp.
-
-(define (elisp-bool b)
-  (if b
-      t-value
-      nil-value))
-
 ;;; Routines for access to elisp dynamically bound symbols.  This is
 ;;; used for runtime access using functions like symbol-value or set,
 ;;; where the symbol accessed might not be known at compile-time.  These
@@ -178,11 +160,3 @@
              (fluid-set! scheme-name
                          (cons 'special-operator
                                (lambda args body ...)))))))))
-
-;;; Call a guile-primitive that may be rebound for elisp and thus needs
-;;; absolute addressing.
-
-(define-syntax prim
-  (syntax-rules ()
-    ((_ sym args ...)
-     ((@ (guile) sym) args ...))))