Use #lang racket/base instead of #lang racket

This commit is contained in:
Georges Dupéron 2018-01-27 12:05:21 +01:00
parent b5b44a35fc
commit e5ec587879
7 changed files with 21 additions and 11 deletions

View File

@ -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)

View File

@ -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])

View File

@ -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])

View File

@ -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])

View File

@ -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

5
it.rkt
View File

@ -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)

View File

@ -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