From e5ec587879546fcb91a91d10dfe2141e18793bf5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Sat, 27 Jan 2018 12:05:21 +0100
Subject: [PATCH] Use #lang racket/base instead of #lang racket

---
 acond.rkt    | 5 +++--
 aif.rkt      | 5 +++--
 awhen.rkt    | 5 +++--
 cond-let.rkt | 4 +++-
 if-let.rkt   | 4 +++-
 it.rkt       | 5 +++--
 when-let.rkt | 4 +++-
 7 files changed, 21 insertions(+), 11 deletions(-)

diff --git a/acond.rkt b/acond.rkt
index de9f6c1..24368e7 100644
--- a/acond.rkt
+++ b/acond.rkt
@@ -1,8 +1,9 @@
-#lang racket
+#lang racket/base
 
 (provide acond it)
 (require anaphoric/it
-         racket/stxparam)
+         racket/stxparam
+         (for-syntax racket/base))
 
 (define-syntax (acond stx)
   (syntax-case stx (else)
diff --git a/aif.rkt b/aif.rkt
index 7383463..eb0fe88 100644
--- a/aif.rkt
+++ b/aif.rkt
@@ -1,8 +1,9 @@
-#lang racket
+#lang racket/base
 
 (provide aif it)
 (require anaphoric/it
-         racket/stxparam)
+         racket/stxparam
+         (for-syntax racket/base))
 
 (define-syntax-rule (aif condition true-branch false-branch)
   (let ([tmp condition])
diff --git a/awhen.rkt b/awhen.rkt
index eb48f8c..a6d15a7 100644
--- a/awhen.rkt
+++ b/awhen.rkt
@@ -1,8 +1,9 @@
-#lang racket
+#lang racket/base
 
 (provide awhen it)
 (require anaphoric/it
-         racket/stxparam)
+         racket/stxparam
+         (for-syntax racket/base))
 
 (define-syntax-rule (awhen condition . body)
   (let ([tmp condition])
diff --git a/cond-let.rkt b/cond-let.rkt
index 7688b83..f9e9422 100644
--- a/cond-let.rkt
+++ b/cond-let.rkt
@@ -1,7 +1,9 @@
-#lang racket
+#lang racket/base
 
 (provide cond-let)
 
+(require (for-syntax racket/base))
+
 (define-syntax (cond-let stx)
   (syntax-case stx (else)
     [(cond-let [[identifierᵢ conditionᵢ] . bodyᵢ] ... [else . else-body])
diff --git a/if-let.rkt b/if-let.rkt
index ffa9378..5063128 100644
--- a/if-let.rkt
+++ b/if-let.rkt
@@ -1,7 +1,9 @@
-#lang racket
+#lang racket/base
 
 (provide if-let)
 
+(require (for-syntax racket/base))
+
 (define-syntax-rule (if-let [variable condition] true-branch false-branch)
   (let ([tmp condition])
     (if tmp
diff --git a/it.rkt b/it.rkt
index 770db4c..7c0736e 100644
--- a/it.rkt
+++ b/it.rkt
@@ -1,7 +1,8 @@
-#lang racket
+#lang racket/base
 
 (provide it)
-(require racket/stxparam)
+(require racket/stxparam
+         (for-syntax racket/base))
 
 (define-syntax-parameter it
   (λ (stx)
diff --git a/when-let.rkt b/when-let.rkt
index 03edb2a..a29850b 100644
--- a/when-let.rkt
+++ b/when-let.rkt
@@ -1,7 +1,9 @@
-#lang racket
+#lang racket/base
 
 (provide when-let)
 
+(require (for-syntax racket/base))
+
 (define-syntax-rule (when-let [variable condition] . body)
   (let ([variable condition])
     (when variable