kzccm1d4if10m2xaz1wqy3xar821pp1r-my-site-anaphoric-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

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:
Macond.rkt | 5+++--
Maif.rkt | 5+++--
Mawhen.rkt | 5+++--
Mcond-let.rkt | 4+++-
Mif-let.rkt | 4+++-
Mit.rkt | 5+++--
Mwhen-let.rkt | 4+++-
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