diff --git a/scheme/cyclone/macros.sld b/scheme/cyclone/macros.sld index 1696248e..003a872f 100644 --- a/scheme/cyclone/macros.sld +++ b/scheme/cyclone/macros.sld @@ -14,6 +14,8 @@ ) (export define-syntax? + let-syntax? + letrec-syntax? macro:macro? macro:expand macro:add! @@ -52,6 +54,12 @@ (define (define-syntax? exp) (tagged-list? 'define-syntax exp)) + (define (let-syntax? exp) + (tagged-list? 'let-syntax exp)) + + (define (letrec-syntax? exp) + (tagged-list? 'letrec-syntax exp)) + (define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros)) (define (macro:expand exp macro mac-env rename-env)