Use package-prefixes for non-base libraries

secrettabero.scm

@@ -15,7 +15,10 @@
 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
 ;;
 
-(import (chicken io) srfi-13 (prefix dbus dbus:) sxml-serializer)
+(import (chicken io)
+		(prefix srfi-13 13:)
+		(prefix dbus dbus:)
+		(prefix sxml-serializer sxml:))
 
 
 ;; Debugging
@@ -39,7 +42,7 @@
   (string-append
    "<!DOCTYPE node PUBLIC \"-//freedesktop//DTD D-BUS Object Introspection 1.0//EN\"
 \"http://www.freedesktop.org/standards/dbus/1.0/introspect.dtd\">\n\n"
-   (serialize-sxml (introspect-node-sxml interfaces subnodes)
+   (sxml:serialize-sxml (introspect-node-sxml interfaces subnodes)
 						#f)))
 
 
@@ -155,7 +158,7 @@
   (syntax-rules ()
 	[(handle-peers-for-path node-path)
 	 (let ([machine-id
-			(string-delete #\newline
+			(13:string-delete #\newline
 							  (call-with-input-file "/var/lib/dbus/machine-id"
 								(lambda (in-port)
 								  (read-string #f in-port))))]