[project @ 2005-06-24 18:59:07 by unknown_lamer]

[clinton/bobotpp.git] / scripts / uname

diff --git a/scripts/uname b/scripts/uname
index 6d90b5a..f13bd8a 100644 (file)
--- a/scripts/uname
+++ b/scripts/uname
@@ -1,9 +1,11 @@
-(use-modules (ice-9 popen))
+;;; -*- scheme -*-
+(use-modules (ice-9 popen)
+            (ice-9 redelim))
 
 (define (uname c)
   (let* ((p (open-input-pipe "/bin/uname -a"))
          (s (read-line p)))
   (close-pipe p)
-  (bot-say c s)))
+  (bot:say c s)))
 
-(bot-addcommand "uname" uname #t 0 1)
+(bot:addcommand "uname" uname #t 0 1)