Update for Gerbil 0.17.0-302-g113e85bf

logger.ss

@@ -115,7 +115,7 @@
 ;; Call a function on each entry in a log file
 ;; : <- Port (<- (Pair Integer String))
 (def (for-each-port-log-entry! port fun)
-  (def reader (PeekableStringReader (raw-port port)))
+  (def reader (PeekableStringReader (open-string-reader port)))
   (until (string-reader-eof? reader)
     (fun (parse-log-entry reader))))
 

source.ss

@@ -42,17 +42,3 @@
 
 ;; TODO: experiment with:
 ;; (parameterize ((current-expander-phi (1+ (current-expander-phi))) (eval-syntax ...))
-
-(import (for-syntax :std/stxutil
-                    :std/misc/path
-                    :std/misc/ports)
-        :std/sugar)
-
-;; TODO: fix it in std/source
-(defsyntax-call (this-source-path ctx relpath)
-  (alet (dir (stx-source-directory ctx)) (subpath dir relpath)))
-
-(defsyntax-call (this-source-content ctx relpath)
-  (alet (dir (stx-source-directory ctx))
-    (alet (path (subpath dir ctx relpath))
-      (read-file-u8vector path))))

t/filesystem-test.ss

@@ -2,8 +2,7 @@
 
 (import
   :std/test
-  (only-in :std/source this-source-file)
-  (only-in ../source this-source-path)
+  (only-in :std/source this-source-file this-source-path)
   ../filesystem)
 
 (def filesystem-test