suzanne.soy/anaphoric
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use #lang racket/base instead of #lang racket

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
acond.rkt
View File

@ -1,8 +1,9 @@
#lang racket #lang racket/base
(provide acond it) (provide acond it)
(require anaphoric/it (require anaphoric/it
racket/stxparam) racket/stxparam
(for-syntax racket/base))
(define-syntax (acond stx) (define-syntax (acond stx)
(syntax-case stx (else) (syntax-case stx (else)

5
aif.rkt
View File

@ -1,8 +1,9 @@
#lang racket #lang racket/base
(provide aif it) (provide aif it)
(require anaphoric/it (require anaphoric/it
racket/stxparam) racket/stxparam
(for-syntax racket/base))
(define-syntax-rule (aif condition true-branch false-branch) (define-syntax-rule (aif condition true-branch false-branch)
(let ([tmp condition]) (let ([tmp condition])

5
awhen.rkt
View File

@ -1,8 +1,9 @@
#lang racket #lang racket/base
(provide awhen it) (provide awhen it)
(require anaphoric/it (require anaphoric/it
racket/stxparam) racket/stxparam
(for-syntax racket/base))
(define-syntax-rule (awhen condition . body) (define-syntax-rule (awhen condition . body)
(let ([tmp condition]) (let ([tmp condition])

4
cond-let.rkt
View File

@ -1,7 +1,9 @@
#lang racket #lang racket/base
(provide cond-let) (provide cond-let)
(require (for-syntax racket/base))
(define-syntax (cond-let stx) (define-syntax (cond-let stx)
(syntax-case stx (else) (syntax-case stx (else)
[(cond-let [[identifierᵢ conditionᵢ] . bodyᵢ] ... [else . else-body]) [(cond-let [[identifierᵢ conditionᵢ] . bodyᵢ] ... [else . else-body])

4
if-let.rkt
View File

@ -1,7 +1,9 @@
#lang racket #lang racket/base
(provide if-let) (provide if-let)
(require (for-syntax racket/base))
(define-syntax-rule (if-let [variable condition] true-branch false-branch) (define-syntax-rule (if-let [variable condition] true-branch false-branch)
(let ([tmp condition]) (let ([tmp condition])
(if tmp (if tmp

5
it.rkt
View File

@ -1,7 +1,8 @@
#lang racket #lang racket/base
(provide it) (provide it)
(require racket/stxparam) (require racket/stxparam
(for-syntax racket/base))
(define-syntax-parameter it (define-syntax-parameter it
(λ (stx) (λ (stx)

4
when-let.rkt
View File

@ -1,7 +1,9 @@
#lang racket #lang racket/base
(provide when-let) (provide when-let)
(require (for-syntax racket/base))
(define-syntax-rule (when-let [variable condition] . body) (define-syntax-rule (when-let [variable condition] . body)
(let ([variable condition]) (let ([variable condition])
(when variable (when variable