.

Author: akkartik

_ref/template.arc

@@ -205,24 +205,23 @@
 (= out-file-name* "")
 (= out-file* (stdout))
 (def doit (arg)
- (with (cmd (car arg) args (cdr arg))
-  (w/stdout out-file*
-    (if (is 'newtable cmd) (apply newtable args)
-        (is 'page cmd) (apply page args)
-        (is 'top-page cmd) (apply top-page args)
-        (is 'text cmd) (apply text args)
-        (is 'op cmd) (op (cons 'op args ))
-        (is 'mac cmd) (op (cons 'mac args))
-        (is 'def cmd) (op (cons 'def args))
-        (is 'var cmd) (op (cons 'var args))
-        (is 'op-nolink cmd) (op (join '(op nolink) args))
-	(is 'index cmd) (index)
-        (is 'import cmd) (copy-file (args 0))
-        (is 'template) nil
-        (is 'file cmd) (do (= out-file-name* (args 0))
-			 (= out-file* (outfile (arg 1))))
-        (err "Expected a template operation" arg)
-      ))))
+  (with (cmd (car arg) args (cdr arg))
+   (w/stdout out-file*
+     (if (is 'newtable cmd)   (apply newtable args)
+         (is 'page cmd)   (apply page args)
+         (is 'top-page cmd)   (apply top-page args)
+         (is 'text cmd)   (apply text args)
+         (is 'op cmd)   (op (cons 'op args ))
+         (is 'mac cmd)  (op (cons 'mac args))
+         (is 'def cmd)  (op (cons 'def args))
+         (is 'var cmd)  (op (cons 'var args))
+         (is 'op-nolink cmd)  (op (join '(op nolink) args))
+         (is 'index cmd)  (index)
+         (is 'import cmd)   (copy-file (args 0))
+         (is 'template)   nil
+         (is 'file cmd)   (do (= out-file-name* (args 0))
+                              (= out-file* (outfile (arg 1))))
+         (err "Expected a template operation" arg)))))
 
 
 (def triples (xs (o n 3))