Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: f16d8856fa
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (22 sloc) 0.813 kb
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))
Jump to Line
Something went wrong with that request. Please try again.