diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 15:47:58 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 15:47:58 +0200 |
| commit | aea37a67f4befaf051958d1a190b268a08acd17b (patch) | |
| tree | 89486c5d30be5795f18519aa1dffdd1432161600 | |
| parent | Let with-atomic-output-to-file break free. (diff) | |
| download | calp-aea37a67f4befaf051958d1a190b268a08acd17b.tar.gz calp-aea37a67f4befaf051958d1a190b268a08acd17b.tar.xz | |
Remove some unused procedures.
| -rw-r--r-- | module/c/lex.scm | 5 | ||||
| -rw-r--r-- | module/entry-points/server.scm | 3 | ||||
| -rw-r--r-- | module/vcomponent/base.scm | 11 |
3 files changed, 0 insertions, 19 deletions
diff --git a/module/c/lex.scm b/module/c/lex.scm index 322e20ed..d36fcc05 100644 --- a/module/c/lex.scm +++ b/module/c/lex.scm @@ -83,11 +83,6 @@ (* (or safe-letter base-10-digit)))) -;; No further subparsing can be done. -;; NOTE that strings are generally also in this category. -(define-peg-pattern atom all - (or base-8 base-10 base-16 number char variable)) - (define-peg-pattern prefix-operator all (or "!" "~" "*" "&" "++" "--" "+" "-")) diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 78950b24..706f2699 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -37,9 +37,6 @@ :export (main) ) -(define (file-extension name) - (car (last-pair (string-split name #\.)))) - (define (sxml->html-string sxml) (with-output-to-string (lambda () (display "<!doctype html>\n") (sxml->xml sxml)))) diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index a93ff6da..3e75e566 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -77,17 +77,6 @@ (set-component-children! parent (cons child (children parent))) (set-component-parent! child parent)) -;; TODO this doesn't handle multi-valued items -(define* (get-property-value component key #:optional default) - (cond [(hashq-ref (get-component-properties component) - key #f) - => get-vline-value] - [else default])) - -(define (get-property component key) - (hashq-ref (get-component-properties component) - key)) - ;;; TODO key=DTSTART, (date? value) => #t ;;; KRÄVER att (props vline 'VALUE) <- "DATE" (define (set-property! component key value) |