The Lambda Lab
/
projects
/
microbotany.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed bug in directory update.
[microbotany.git]
/
delete.scm
diff --git
a/delete.scm
b/delete.scm
index
a259061
..
53050d1
100755
(executable)
--- a/
delete.scm
+++ b/
delete.scm
@@
-1,10
+1,7
@@
;; Delete account
(lambda (uri)
;; Delete account
(lambda (uri)
- (import (chicken file)
- (chicken pathname)
- (chicken string)
- uri-common)
+ (import (chicken io))
(let ((query (uri-query uri)))
(serve-document-header (ext->mime "gmi"))
(if (null? query)
(let ((query (uri-query uri)))
(serve-document-header (ext->mime "gmi"))
(if (null? query)
@@
-14,6
+11,6
@@
(if (file-exists? account-file)
(begin
(delete-file account-file)
(if (file-exists? account-file)
(begin
(delete-file account-file)
- (print "
Account
successfully deleted."))
- (print "Attempted to delete non-existent
account
."))))
+ (print "
Garden
successfully deleted."))
+ (print "Attempted to delete non-existent
garden
."))))
(print "\n=> /microbotany/ Return to μBotany")))
(print "\n=> /microbotany/ Return to μBotany")))