diff -Nur netstring.egg netstring.egg
--- netstring.egg 1969-12-31 16:00:00.000000000 -0800
+++ netstring.egg 2021-06-19 03:58:31.671103380 -0700
@@ -0,0 +1,9 @@
+;;; netstring.egg -*- Scheme -*-
+
+((synopsis "Parsing and writing netstrings")
+ (category parsing)
+ (test-dependencies test)
+ (license "BSD")
+ (author "Moritz Heidkamp")
+ (components
+ (extension netstring)))
diff -Nur netstring.meta netstring.meta
--- netstring.meta 2021-06-19 04:20:44.098000845 -0700
+++ netstring.meta 1969-12-31 16:00:00.000000000 -0800
@@ -1,5 +0,0 @@
-((synopsis "Parsing and writing netstrings")
- (author "Moritz Heidkamp")
- (test-depends test)
- (category parsing)
- (license "BSD"))
diff -Nur netstring.scm netstring.scm
--- netstring.scm 2021-06-19 04:20:44.095000937 -0700
+++ netstring.scm 2021-06-19 04:08:14.668944954 -0700
@@ -2,12 +2,15 @@
(netstring-write netstring-read string->netstring netstring->string)
-(import chicken scheme)
-(use (only extras read-string read-token)
- (only ports
- with-output-to-port
- with-output-to-string
- with-input-from-string))
+(import
+ (chicken base)
+ (only (chicken format) sprintf)
+ (only (chicken io) read-string read-token)
+ (only (chicken port)
+ with-output-to-port
+ with-output-to-string
+ with-input-from-string)
+ scheme)
(define (netstring-write str #!optional (port (current-output-port)) (terminator #\,))
(with-output-to-port port
@@ -29,7 +32,7 @@
(cond ((not (= (string-length string) len))
(error 'netstring-read
- (format "wrong length, expected ~A but got ~A"
+ (sprintf "wrong length, expected ~A but got ~A"
len
(string-length string))))
(check-terminator?
diff -Nur netstring.setup netstring.setup
--- netstring.setup 2021-06-19 04:20:44.096000906 -0700
+++ netstring.setup 1969-12-31 16:00:00.000000000 -0800
@@ -1 +0,0 @@
-(standard-extension "netstring" "0.0.4")
diff -Nur tests/run.scm tests/run.scm
--- tests/run.scm 2021-06-19 04:20:44.084001271 -0700
+++ tests/run.scm 2021-06-19 04:10:49.024198701 -0700
@@ -1,6 +1,4 @@
-(load-relative "../netstring")
-(import netstring)
-(use test)
+(import (chicken port) netstring test)
(test-begin)