mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-07 23:14:21 +00:00
parent ada1129e78
commit 25ec54b542
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/system/il/ghil.scm
View file

@ -68,7 +68,8 @@
(define *macro-module* (resolve-module '(system il macros)))
(define (ghil-primitive-macro? x)
(module-defined? *macro-module* x))
(and (module-defined? *macro-module* x)
(procedure? (module-ref *macro-module* x))))
(define (ghil-macro-expander x)
(module-ref *macro-module* x))

4
module/system/il/macros.scm
View file

@ -177,8 +177,8 @@
(define (@car x) `(@@ car ,x))
(define (@cdr x) `(@@ cdr ,x))
(define (@set-car! x) `(@@ set-car! ,x))
(define (@set-cdr! x) `(@@ set-cdr! ,x))
(define (@set-car! x y) `(@@ set-car! ,x ,y))
(define (@set-cdr! x y) `(@@ set-cdr! ,x ,y))
(define (@caar x) `(@@ car (@@ car ,x)))
(define (@cadr x) `(@@ car (@@ cdr ,x)))