From 09cb431219f20814e88a304592de8389ed226afb Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 21 Nov 2017 13:23:08 -0500
Subject: [PATCH] Added new predicates

---
 scheme/cyclone/macros.sld | 8 ++++++++
 1 file changed, 8 insertions(+)

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)