Cosmetic: trim trailing whitespace
This commit is contained in:
parent
5ea3cf283f
commit
e8b99ae8e7
|
@ -21,27 +21,27 @@
|
|||
|
||||
(module+ test
|
||||
(require rackunit)
|
||||
|
||||
|
||||
(define v1 (canonicalize (cons 1 2)))
|
||||
|
||||
|
||||
(let ((v2 (canonicalize (cons 1 2))))
|
||||
(check-eq? v1 v2))
|
||||
|
||||
|
||||
(collect-garbage)
|
||||
(check-equal? (hash-count canonical-values) 1)
|
||||
|
||||
|
||||
(let ((v2 (canonicalize (cons 1 2))))
|
||||
(check-eq? v1 v2))
|
||||
|
||||
|
||||
(set! v1 (canonicalize (cons 1 2)))
|
||||
|
||||
|
||||
(collect-garbage)
|
||||
(check-equal? (hash-count canonical-values) 1)
|
||||
|
||||
|
||||
(let ((v2 (canonicalize (cons 1 2))))
|
||||
(check-eq? v1 v2))
|
||||
|
||||
|
||||
(set! v1 #f)
|
||||
|
||||
|
||||
(collect-garbage)
|
||||
(check-equal? (hash-count canonical-values) 0))
|
||||
|
|
|
@ -26,7 +26,7 @@
|
|||
final-stx)
|
||||
(syntax-case (local-expand (car forms)
|
||||
'module
|
||||
(syntax->list #'(quote
|
||||
(syntax->list #'(quote
|
||||
quote-syntax #%top
|
||||
lambda case-lambda
|
||||
let-values letrec-values
|
||||
|
@ -36,8 +36,8 @@
|
|||
define-values define-syntaxes
|
||||
begin-for-syntax
|
||||
module module*
|
||||
#%module-begin
|
||||
#%require #%provide
|
||||
#%module-begin
|
||||
#%require #%provide
|
||||
#%variable-reference))) ()
|
||||
[(head rest ...)
|
||||
(if (free-identifier=? #'head #'begin)
|
||||
|
@ -47,7 +47,7 @@
|
|||
(if (ormap (lambda (i) (free-identifier=? #'head i))
|
||||
(syntax->list #'(define-values define-syntaxes begin-for-syntax
|
||||
module module*
|
||||
#%module-begin
|
||||
#%module-begin
|
||||
#%require #%provide)))
|
||||
(accumulate-actions action-ids
|
||||
(cons (car forms) final-forms)
|
||||
|
|
Loading…
Reference in New Issue