commit 5143254

prepare.

 1@@ -24,11 +24,6 @@
 2 (define (die a n)
 3   (format #t "\x1b[m\x1b[31mERROR: \x1b[m~a~%" a)(quit n))
 4 
 5-(define (find-pkg p)
 6-  (_system "find"
 7-	   (or (getenv "DTR_DIR") "/ports") "-type" "d" "-mindepth" "2" "-maxdepth" "2" "-name" p)
 8-  )
 9-
10 (define (usage)
11   (format #t "usage: dull <cmd> <pkgs>~%")
12   (format #t "       dull h~%")

 1@@ -2,6 +2,11 @@
 2 ;; everything will be stubbed todat because i need to implement
 3 ;; package finding and shit
 4 
 5+(define (find-pkg p)
 6+  (_system "find"
 7+	   (or (getenv "DTR_DIR") "/ports") "-type" "d" "-mindepth" "2" "-maxdepth" "2" "-name" p)
 8+  )
 9+
10 (define (ver-pkg pkg)
11   (let i (
12 	  (e

1@@ -1,5 +1,3 @@
2-(define DULL_PORTS)
3-(define DULL_SRC)
4-(define DULL_PKG)
5 (define DULL_DIR "/var/tmp/dtr")
6 (define DULL_DB "/var/lib/dull")
7+(define (or (getenv "DULL_PATH") "/ports-dull"))