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

Remove display

Browse Source
This commit is contained in:
Georges Dupéron 2017-02-05 09:07:47 +01:00
parent 83faf976f1
commit 0f577ba470
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
private/ddd.rkt
View File

@ -122,7 +122,6 @@
(and (vector? present-variables**) (and (vector? present-variables**)
(vector->list present-variables**))) (vector->list present-variables**)))
(unless ((listof (syntax/c boolean?)) present-variables*) (unless ((listof (syntax/c boolean?)) present-variables*)
(displayln expanded-form)
(raise-syntax-error 'ddd (raise-syntax-error 'ddd
(string-append (string-append
"internal error: could not extract the vector of" "internal error: could not extract the vector of"
@ -135,8 +134,6 @@
(map (λ (id) (map (λ (id)
(define prop (syntax-property id 'lifted-pvar)) (define prop (syntax-property id 'lifted-pvar))
(unless ((cons/c symbol? stx-list?) prop) (unless ((cons/c symbol? stx-list?) prop)
(displayln id)
(displayln prop)
(raise-syntax-error 'ddd (raise-syntax-error 'ddd
(string-append (string-append
"internal error: 'lifted-pvar property was " "internal error: 'lifted-pvar property was "
@ -175,7 +172,7 @@
(define-values (present-variables lifted-variables) (define-values (present-variables lifted-variables)
(extract-present-variables #'expanded-condition stx)) (extract-present-variables #'expanded-condition stx))
(displayln lifted-variables) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TODO: lifted stuff!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
(define/with-syntax (test-present-attribute …) (define/with-syntax (test-present-attribute …)
(for/list ([present? (in-list present-variables)] (for/list ([present? (in-list present-variables)]