jadedctrl/ secrettabero
Archived
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Use package-prefixes for non-base libraries

This commit is contained in:
Jaidyn Ann 2023-04-19 11:03:44 -05:00
parent bbc45c527e
commit 75949d1a94
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
secrettabero.scm
View File

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