diff --git a/ext-syntax/css/syntax.scss b/ext-syntax/css/syntax.scss index 851faa5..e0f58d9 100644 --- a/ext-syntax/css/syntax.scss +++ b/ext-syntax/css/syntax.scss @@ -50,7 +50,7 @@ pre.highlight, .highlight { .nd { color: $hue-6-2; } /* Name.Decorator */ .ni { color: $hue-6-2; } /* Name.Entity */ .ne { color: $hue-6-2; } /* Name.Exception */ - .nf { color: $mono-1; } /* Name.Function */ + .nf { color: $hue-2; } /* Name.Function */ .nl { color: $hue-6-2; } /* Name.Label */ .nn { color: $mono-1; } /* Name.Namespace */ .nx { color: $mono-1; } /* Name.Other */ diff --git a/xtemplate.rkt b/xtemplate.rkt index f6735f7..cedcd7b 100644 --- a/xtemplate.rkt +++ b/xtemplate.rkt @@ -29,15 +29,11 @@ #:with #%template-args (datum->syntax #'body '#%template-args) #:with execute-fn #'(λ (#%template-args) body) #:with expanded-execute-fn #'execute-fn - ; #:with expanded-execute-fn (begin - ; (displayln "expanding!") - ; (local-expand #'execute-fn (syntax-local-context) '())) + ; #:with expanded-execute-fn (local-expand #'execute-fn (syntax-local-context) '()) ; #:with (unbound-ids ...) - ; (begin - ; (displayln "collecting unbounds") - ; (map (λ (stx) #`(quote #,stx)) (set->list (collect-unbounds #'expanded-execute-fn)))) + ; (map (λ (stx) #`(quote #,stx)) (set->list (collect-unbounds #'expanded-execute-fn))) (#%module-begin - ;(provide required-ids) - ;(define required-ids (list unbound-ids ...)) + ; (provide required-ids) + ; (define required-ids (list unbound-ids ...)) (provide execute) (define execute expanded-execute-fn)))