haskal
/
capybara
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix name.function style

This commit is contained in:
xenia 2021-06-06 23:33:18 -04:00
parent fecf69febf
commit 1d03a2ad52
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ext-syntax/css/syntax.scss
View File

@ -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 */

12
xtemplate.rkt
View File

@ -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)))