mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +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

8
module/ice-9/psyntax.scm
View file

@ -81,8 +81,6 @@
;;; Revision 3, for a complete description)
;;; (syntax-violation who message form [subform])
;;; used to report errors found during expansion
;;; (install-global-transformer symbol value)
;;; used by expanded code to install top-level syntactic abstractions
;;; ($sc-dispatch e p)
;;; used by expanded code to handle syntax-case matching
@ -2071,12 +2069,6 @@
(if who (cons who tail) tail))
#f)))
(set! install-global-transformer
(lambda (sym v)
(arg-check symbol? sym 'define-syntax)
(arg-check procedure? v 'define-syntax)
(global-extend 'macro sym v)))
;;; $sc-dispatch expects an expression and a pattern. If the expression
;;; matches the pattern a list of the matching expressions for each
;;; "any" is returned. Otherwise, #f is returned. (This use of #f will