commit e5ec587879546fcb91a91d10dfe2141e18793bf5
parent b5b44a35fc18ed0ff7f800adb331240589b6925c
Author: Georges Dupéron <georges.duperon@gmail.com>
Date: Sat, 27 Jan 2018 12:05:21 +0100
Use #lang racket/base instead of #lang racket
Diffstat:
7 files changed, 21 insertions(+), 11 deletions(-)
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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