diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-02 22:29:47 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-02 22:29:47 +0100 |
commit | 3a1d3898c3d42d43645b79586f0b26ab4f8ff331 (patch) | |
tree | 9f4d1a41f33bebcff24ade2e5364d87f8bb78c82 /src/main.scm | |
parent | Move parser into module subtree. (diff) | |
download | calp-3a1d3898c3d42d43645b79586f0b26ab4f8ff331.tar.gz calp-3a1d3898c3d42d43645b79586f0b26ab4f8ff331.tar.xz |
Remove ALL c code.
Diffstat (limited to '')
-rwxr-xr-x | src/main.scm | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/main.scm b/src/main.scm deleted file mode 100755 index 408b9de0..00000000 --- a/src/main.scm +++ /dev/null @@ -1,24 +0,0 @@ -#!/usr/bin/guile \ --e main -s -!# - -(add-to-load-path (dirname (current-filename))) - -(use-modules (parse)) - -(define (main args) - -;; (define *path* "/home/hugo/.local/var/cal/STABEN/599ca4a2f8eda362aaac598c999321dcc8004780a1d5cef36019c7e421b70b08.ics") -;; (define root (parse-cal-path *path*)) - -;; (format #t "root = ~a~%" root) - - - (format (current-error-port) "Parsing ~s~%" (cadr args)) - (let ((cal (read-tree (cadr args)))) - (format #t "cal = ~a~%" cal) - (format (current-error-port) "~a events~%" (length cal))) - - ) - - |