diff options
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r-- | module/ice-9/psyntax.scm | 8 |
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 '())) |