syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cosmetic: trim trailing whitespace

This commit is contained in:
Tony Garnock-Jones 2015-05-11 13:33:05 -04:00
parent 5ea3cf283f
commit e8b99ae8e7
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
prospect/canonicalize.rkt
View File

@ -21,27 +21,27 @@
(module+ test (module+ test
(require rackunit) (require rackunit)
(define v1 (canonicalize (cons 1 2))) (define v1 (canonicalize (cons 1 2)))
(let ((v2 (canonicalize (cons 1 2)))) (let ((v2 (canonicalize (cons 1 2))))
(check-eq? v1 v2)) (check-eq? v1 v2))
(collect-garbage) (collect-garbage)
(check-equal? (hash-count canonical-values) 1) (check-equal? (hash-count canonical-values) 1)
(let ((v2 (canonicalize (cons 1 2)))) (let ((v2 (canonicalize (cons 1 2))))
(check-eq? v1 v2)) (check-eq? v1 v2))
(set! v1 (canonicalize (cons 1 2))) (set! v1 (canonicalize (cons 1 2)))
(collect-garbage) (collect-garbage)
(check-equal? (hash-count canonical-values) 1) (check-equal? (hash-count canonical-values) 1)
(let ((v2 (canonicalize (cons 1 2)))) (let ((v2 (canonicalize (cons 1 2))))
(check-eq? v1 v2)) (check-eq? v1 v2))
(set! v1 #f) (set! v1 #f)
(collect-garbage) (collect-garbage)
(check-equal? (hash-count canonical-values) 0)) (check-equal? (hash-count canonical-values) 0))

8
prospect/lang.rkt
View File

@ -26,7 +26,7 @@
final-stx) final-stx)
(syntax-case (local-expand (car forms) (syntax-case (local-expand (car forms)
'module 'module
(syntax->list #'(quote (syntax->list #'(quote
quote-syntax #%top quote-syntax #%top
lambda case-lambda lambda case-lambda
let-values letrec-values let-values letrec-values
@ -36,8 +36,8 @@
define-values define-syntaxes define-values define-syntaxes
begin-for-syntax begin-for-syntax
module module* module module*
#%module-begin #%module-begin
#%require #%provide #%require #%provide
#%variable-reference))) () #%variable-reference))) ()
[(head rest ...) [(head rest ...)
(if (free-identifier=? #'head #'begin) (if (free-identifier=? #'head #'begin)
@ -47,7 +47,7 @@
(if (ormap (lambda (i) (free-identifier=? #'head i)) (if (ormap (lambda (i) (free-identifier=? #'head i))
(syntax->list #'(define-values define-syntaxes begin-for-syntax (syntax->list #'(define-values define-syntaxes begin-for-syntax
module module* module module*
#%module-begin #%module-begin
#%require #%provide))) #%require #%provide)))
(accumulate-actions action-ids (accumulate-actions action-ids
(cons (car forms) final-forms) (cons (car forms) final-forms)