Make asm interpreter quieter.

Author: dvanhorn

www/notes/blackmail/asm/interp.rkt

@@ -13,7 +13,7 @@
       #:exists 'truncate
       (λ ()
         (asm-display a)))
-    (system (format "(cd ~a && make -s ~a)" dir t.run))
+    (system (format "(cd ~a && make -s ~a) 2>&1 >/dev/null" dir t.run))
     (delete-file t.s)
     (with-input-from-string
         (with-output-to-string

www/notes/con/asm/interp.rkt

@@ -13,9 +13,7 @@
       #:exists 'truncate
       (λ ()
         (asm-display a)))
-    (with-output-to-string ; ignore make output
-      (λ () 
-        (system (format "(cd ~a && make -s ~a)" dir t.run))))
+    (system (format "(cd ~a && make -s ~a) 2>&1 >/dev/null" dir t.run))
     (delete-file t.s)
     (with-input-from-string
         (with-output-to-string

www/notes/dupe/asm/interp.rkt

@@ -13,9 +13,7 @@
       #:exists 'truncate
       (λ ()
         (asm-display a)))
-    (with-output-to-string ; ignore make output
-      (λ () 
-        (system (format "(cd ~a && make -s ~a)" dir t.run))))
+    (system (format "(cd ~a && make -s ~a) 2>&1 >/dev/null" dir t.run))
     (delete-file t.s)
     (with-input-from-string
         (with-output-to-string

www/notes/extort/asm/interp.rkt

@@ -13,7 +13,7 @@
       #:exists 'truncate
       (λ ()
         (asm-display a)))
-    (system (format "(cd ~a && make -s ~a)" dir t.run))
+    (system (format "(cd ~a && make -s ~a) 2>&1 >/dev/null" dir t.run))
     (delete-file t.s)
     (with-input-from-string
         (with-output-to-string