Gregory's Server@ramin_hal9001 @otterz Sounds very reasonable to me! Thank you for the idea, I guess I will use it in the implementation :)
|
Top-level
 @ramin_hal9001 @otterz Sounds very reasonable to me! Thank you for the idea, I guess I will use it in the implementation :) 1 comment
|
@abcdw @otterz No problem!
(define (read-all-chars-as-string in-port) (let ((out-port (open-string-port))) (let loop () (if (char-ready? in-port) (begin (write-char (read-char in-port) out-port) (loop)) (get-output-string out-port)))))