mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 03:00:25 +02:00
Code Activity

cleanups to boot-9

Browse source 
* module/ice-9/boot-9.scm: Shuffle around some definitions.
  (module-add!): Removed stub definition, no longer used.
  (install-global-transformer): Removed, no longer used (yay!).

* module/ice-9/psyntax-pp.scm: Regenerated.

* module/ice-9/psyntax.scm: Remove install-global-transformer.
This commit is contained in:
Andy Wingo 2009-04-29 22:50:45 +02:00
parent 3d5f3091e1
commit 12eae603c7
3 changed files with 15 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/ice-9/boot-9.scm
View file

@ -134,12 +134,10 @@
;; Before the module system boots, there are no module names. But
;; psyntax does want a module-name definition, so give it one.
;; Define a minimal stub of the module API for psyntax, before modules
;; have booted.
(define (module-name x)
'(guile))
(define (module-add! module sym var)
(hashq-set! (%get-pre-modules-obarray) sym var))
(define (module-define! module sym val)
(let ((v (hashq-ref (%get-pre-modules-obarray) sym)))
(if v
@ -149,6 +147,8 @@
(define (module-ref module sym)
(let ((v (module-variable module sym)))
(if v (variable-ref v) (error "badness!" (pk module) (pk sym)))))
(define (resolve-module . args)
#f)
(define (make-module-ref mod var kind)
(case kind
@ -163,8 +163,6 @@
`(@@ ,mod ,var)
var))
(else (error "foo" mod var kind))))
(define (resolve-module . args)
#f)
;;; API provided by psyntax
(define syntax-violation #f)
@ -182,7 +180,6 @@
(define $sc-dispatch #f)
;;; Useless crap I'd like to get rid of
(define install-global-transformer #f)
(define (annotation? x) #f)