ryuslash/undone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Properly load undonerc

Browse source
This commit is contained in:
Tom Willemsen 2012-08-14 21:11:55 +02:00
parent ffbff6beb6
commit a90567ae22
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
undone/main.scm
View file

@ -86,7 +86,7 @@
(apply view-func '())))) (apply view-func '()))))
(define (main args) (define (main args)
;; (primitive-load "/home/slash/undonerc.scm") (load "/home/slash/undonerc.scm")
(if (> (length args) 1) (if (> (length args) 1)
(case (string->symbol (cadr args)) (case (string->symbol (cadr args))
((add) ((add)