mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* syncase.scm (define-syntax, eval-when, fluid-let-syntax,

Browse source 
identifier-syntax, let-syntax, letrec-syntax, syntax, syntax-case,
syntax-rules, with-syntax, include):  Changed definitions to form
'real' macro definitions.
This commit is contained in:
Dirk Herrmann 2002-11-16 16:01:06 +00:00
parent 6aa9ea7c90
commit c55bcb3297
2 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ice-9/ChangeLog
View file

@ -1,3 +1,10 @@
2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* syncase.scm (define-syntax, eval-when, fluid-let-syntax,
identifier-syntax, let-syntax, letrec-syntax, syntax, syntax-case,
syntax-rules, with-syntax, include): Changed definitions to form
'real' macro definitions.
2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de> 2002-11-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* boot-9.scm (define-private, export-syntax, export-syntax): * boot-9.scm (define-private, export-syntax, export-syntax):

23
ice-9/syncase.scm
View file

@ -83,21 +83,22 @@
(define bound-identifier=? #f) (define bound-identifier=? #f)
(define datum->syntax-object #f) (define datum->syntax-object #f)
(define define-syntax sc-macro)
(define eval-when sc-macro)
(define fluid-let-syntax sc-macro)
(define free-identifier=? #f) (define free-identifier=? #f)
(define generate-temporaries #f) (define generate-temporaries #f)
(define identifier? #f) (define identifier? #f)
(define identifier-syntax sc-macro)
(define let-syntax sc-macro)
(define letrec-syntax sc-macro)
(define syntax sc-macro)
(define syntax-case sc-macro)
(define syntax-object->datum #f) (define syntax-object->datum #f)
(define syntax-rules sc-macro)
(define with-syntax sc-macro) (defmacro define-syntax args `(sc-macro ,@args))
(define include sc-macro) (defmacro eval-when args `(sc-macro ,@args))
(defmacro fluid-let-syntax args `(sc-macro ,@args))
(defmacro identifier-syntax args `(sc-macro ,@args))
(defmacro let-syntax args `(sc-macro ,@args))
(defmacro letrec-syntax args `(sc-macro ,@args))
(defmacro syntax args `(sc-macro ,@args))
(defmacro syntax-case args `(sc-macro ,@args))
(defmacro syntax-rules args `(sc-macro ,@args))
(defmacro with-syntax args `(sc-macro ,@args))
(defmacro include args `(sc-macro ,@args))
(define primitive-syntax '(quote lambda letrec if set! begin define or (define primitive-syntax '(quote lambda letrec if set! begin define or
and let let* cond do quasiquote unquote and let let* cond do quasiquote unquote