Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (22 sloc) 813 Bytes
mac w/infile(name . body)
`(between (dyn_bind stdin (infile ,name)) :and (do close_infile.stdin dyn_unbind.stdin)
,@body)
mac w/outfile(name . body)
`(between (dyn_bind stdout (outfile ,name)) :and (do close_infile.stdout dyn_unbind.stdout)
,@body)
mac w/instring(s . body)
`(between (dyn_bind stdin (instring ,s)) :and (do close_infile.stdin dyn_unbind.stdin)
,@body)
mac w/outstring body
`(between (dyn_bind stdout outstring.) :and (do close_outfile.stdout dyn_unbind.stdout)
,@body
outstring_buffer.stdout)
mac w/stdin(fd . body)
`(between (dyn_bind stdin ,fd) :and (do dyn_unbind.stdin close.,fd)
,@body)
mac w/stdout(fd . body)
`(between (dyn_bind stdout ,fd) :and (do dyn_unbind.stdout close.,fd)
,@body)
def ern args
(w/stdout stderr
(prn @args))
Something went wrong with that request. Please try again.