Skip to content

Port

Given a file named “main.scm” with:

(import (scheme base))
(write-u8 (if (port? <expression>) 65 66))

When I successfully run stak main.scm

Then the stdout should contain exactly “A”.

expression
(current-input-port)
(current-output-port)

Given a file named “main.scm” with:

(import (scheme base))
(write-u8 (if (input-port? (current-input-port)) 65 66))

When I successfully run stak main.scm

Then the stdout should contain exactly “A”.

Given a file named “main.scm” with:

(import (scheme base))
(write-u8 (if (output-port? <expression>) 65 66))

When I successfully run stak main.scm

Then the stdout should contain exactly “A”.

expression
(current-output-port)
(current-error-port)