From 275e00329555ce572fe9a68f7692dbecc52d8b34 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 2 Sep 2008 09:32:31 -0700 Subject: [PATCH] remove define-syntax-macro from boot-9.scm * ice-9/boot-9.scm (defmacro:syntax-transformer, define-syntax-macro): Removed these, as I could not see anywhere they were being used, and they use the unnecessary procedure->syntax procedure. --- ice-9/boot-9.scm | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 88f80b40d..0204f92fd 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -167,12 +167,6 @@ (error "defmacro can only be used at the top level"))))))) (defmacro:transformer defmacro-transformer))) -(define defmacro:syntax-transformer - (lambda (f) - (procedure->syntax - (lambda (exp env) - (copy-tree (apply f (cdr exp))))))) - ;; XXX - should the definition of the car really be looked up in the ;; current module? @@ -2712,18 +2706,6 @@ module '(ice-9 q) '(make-q q-length))}." (error "define-macro can only be used at the top level"))))) -(defmacro define-syntax-macro (first . rest) - (let ((name (if (symbol? first) first (car first))) - (transformer - (if (symbol? first) - (car rest) - `(lambda ,(cdr first) ,@rest)))) - `(eval-case - ((load-toplevel compile-toplevel) - (define ,name (defmacro:syntax-transformer ,transformer))) - (else - (error "define-syntax-macro can only be used at the top level"))))) - ;;; {While}