+(define (test-prog prog exit-code)
+ (display prog)
+ (newline)
+ (compile-to-binary prog "/tmp/test-prog" 'darwin)
+ (test (system "/tmp/test-prog") exit-code))
+
+(define (test-prog-stdout prog output)
+ (display prog)
+ (newline)
+ (compile-to-binary prog "/tmp/test-prog" 'darwin)