stamourv

#!/bin/sh
#|
exec racket -qu "$0" ${1+"$@"}
|#
#lang racket

(require (planet stamourv/sexp-diff))

(define (read-and-expand file)
  (with-input-from-string ;; read-syntax won't work with #lang

stamourv

all:
	rustc rtinstrument.rs
	rustc foo.rs -L .
	./foo | racket rust-visualizer.rkt &

stamourv

#lang racket

(require slideshow unstable/gui/slideshow)

(define points
  (for/list ([i 10])
    (disk 10)))

(define named-points
  (for/list ([p points] [i (in-naturals)])