From 3a1d3898c3d42d43645b79586f0b26ab4f8ff331 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 2 Nov 2019 22:29:47 +0100 Subject: Remove ALL c code. --- src/main.scm | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100755 src/main.scm (limited to 'src/main.scm') 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))) - - ) - - -- cgit v1.2.3