mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-08 15:32:27 +02:00
Code Activity

remove unused code

Browse source 
* 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:
BT Templeton 2011-07-25 15:04:34 -04:00
parent d273b82656
commit 5bdd388cf0
2 changed files with 1 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/elisp/compile-tree-il.scm
View file

@ -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,

28
module/language/elisp/runtime.scm
View file

@ -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 ...))))