[Misc cleanup in bobot utils
clinton@unknownlamer.org**20090904134858
 Ignore-this: a81af7e1b4507a1d4e80ac5abfd28ba7
 Split module->string into a toplevel binding, removed whitespace, etc.
] {
hunk ./scripts/bobot-utils.scm 33
+(define (module->string module)
+  (apply (lambda (s . rest)
+	   (string-append
+	    s
+	    (apply string-append
+		   (map (lambda (str) (string-append "/" str)) rest))))
+	 (map symbol->string module)))
+
hunk ./scripts/bobot-utils.scm 42
-  (let ((module->string
-	 (lambda (module)
-	  (apply
-	   (lambda (s . rest)
-	     (string-append
-	      s
-	      (apply string-append
-		     (map (lambda (str) (string-append "/" str)) rest))))
-		 (map symbol->string module))))
-	(new-module
-	 (make-module))
+  (let ((new-module (make-module 31 (list the-bot-module)))
hunk ./scripts/bobot-utils.scm 54
-
hunk ./scripts/bobot-utils.scm 65
-;(define-public (bot:match-to-me r) r)
}