citadel

My dotfiles, scripts and nix configs
git clone git://jb55.com/citadel
Log | Files | Refs | README | LICENSE

prettysexp (260B)

      1 #! /usr/bin/env nix-shell
      2 #! nix-shell -i racket -p racket
      3 #lang racket
      4 
      5 (require racket/pretty)
      6 
      7 (define (pretty-write-all)
      8 
      9   (define next (read))
     10  
     11   (when (not (eof-object? next))
     12     (pretty-write next)
     13     (pretty-write-all)))
     14       
     15 
     16 (pretty-write-all)