mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-08 15:32:27 +02:00
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.
This commit is contained in:
parent
d273b82656
commit
5bdd388cf0
2 changed files with 1 additions and 32 deletions
|
@ -110,11 +110,6 @@
|
||||||
(define (report-error loc . args)
|
(define (report-error loc . args)
|
||||||
(apply error 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
|
;;; Generate code to ensure a global symbol is there for further use of
|
||||||
;;; a given symbol. In general during the compilation, those needed are
|
;;; a given symbol. In general during the compilation, those needed are
|
||||||
;;; only tracked with the bindings data structure. Afterwards, however,
|
;;; only tracked with the bindings data structure. Afterwards, however,
|
||||||
|
|
|
@ -34,9 +34,7 @@
|
||||||
symbol-bound?
|
symbol-bound?
|
||||||
symbol-fbound?
|
symbol-fbound?
|
||||||
makunbound!
|
makunbound!
|
||||||
fmakunbound!
|
fmakunbound!)
|
||||||
runtime-error
|
|
||||||
macro-error)
|
|
||||||
#:export-syntax (defspecial prim))
|
#:export-syntax (defspecial prim))
|
||||||
|
|
||||||
;;; This module provides runtime support for the Elisp front-end.
|
;;; This module provides runtime support for the Elisp front-end.
|
||||||
|
@ -55,22 +53,6 @@
|
||||||
|
|
||||||
(define function-slot-module '(language elisp runtime function-slot))
|
(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
|
;;; Routines for access to elisp dynamically bound symbols. This is
|
||||||
;;; used for runtime access using functions like symbol-value or set,
|
;;; used for runtime access using functions like symbol-value or set,
|
||||||
;;; where the symbol accessed might not be known at compile-time. These
|
;;; where the symbol accessed might not be known at compile-time. These
|
||||||
|
@ -178,11 +160,3 @@
|
||||||
(fluid-set! scheme-name
|
(fluid-set! scheme-name
|
||||||
(cons 'special-operator
|
(cons 'special-operator
|
||||||
(lambda args body ...)))))))))
|
(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 ...))))
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue