summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r--module/ice-9/psyntax.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 6c96bdbd6..1387b0855 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -554,8 +554,12 @@
((_ type value) (cons type value))
((_ 'type) '(type))
((_ type) (cons type '()))))
- (define binding-type car)
- (define binding-value cdr)
+ (define-syntax binding-type
+ (syntax-rules ()
+ ((_ x) (car x))))
+ (define-syntax binding-value
+ (syntax-rules ()
+ ((_ x) (cdr x))))
(define-syntax null-env (identifier-syntax '()))